Browse Source

added unique-ification to `mcga()`

pull/11/head
boB Rudis 7 years ago
parent
commit
75347d6519
No known key found for this signature in database GPG Key ID: 2A514A4997464560
  1. 1
      R/mcga.r

1
R/mcga.r

@ -18,6 +18,7 @@ mcga <- function(tbl) {
x <- gsub("[[:punct:][:space:]]+", "_", x)
x <- gsub("_+", "_", x)
x <- gsub("(^_|_$)", "", x)
x <- make.unique(x, sep = "_")
colnames(tbl) <- x

Loading…
Cancel
Save