You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
24 lines
480 B
24 lines
480 B
.mcga <- function(tbl) {
|
|
|
|
x <- colnames(tbl)
|
|
x <- tolower(x)
|
|
x <- gsub("[[:punct:][:space:]]+", "_", x)
|
|
x <- gsub("_+", "_", x)
|
|
x <- gsub("(^_|_$)", "", x)
|
|
x <- gsub("^x_", "", x)
|
|
x <- make.unique(x, sep = "_")
|
|
|
|
colnames(tbl) <- x
|
|
|
|
tbl
|
|
|
|
}
|
|
|
|
to_num <- function(x) {
|
|
x <- gsub("%", "", x, fixed=TRUE)
|
|
x <- gsub(">", "", x, fixed=TRUE)
|
|
x <- gsub("<", "", x, fixed=TRUE)
|
|
x <- gsub(",", "", x, fixed=TRUE)
|
|
x <- gsub(" ", "", x, fixed=TRUE)
|
|
as.numeric(x)
|
|
}
|
|
|