Menjadikan elemen vektor karakter unik dengan menambahkan nomor urut ke duplikat.
make.unique(names, sep = ".")
| Parameter | Deskripsi |
|---|---|
names |
a character vector |
sep |
a character string used to separate a duplicate name from its sequence number. |
# NOT RUN {
make.unique(c("a", "a", "a"))
make.unique(c(make.unique(c("a", "a")), "a"))
make.unique(c("a", "a", "a.2", "a"))
make.unique(c(make.unique(c("a", "a")), "a.2", "a"))
## Now show a bit where this is used :
trace(make.unique)
## Applied in data.frame() constructions:
(d1 <- data.frame(x = 1, x = 2, x = 3)) # direct
d2 <- data.frame(data.frame(x = 1, x = 2), x = 3) # pairwise
stopifnot(identical(d1, d2),
colnames(d1) == c("x", "x.1", "x.2"))
untrace(make.unique)
# }