case-convert.R

# Convert camelCase character vector to separated
to_separated <- function(x, sep = ".") {
    x <- gsub("(.)([[:upper:]][[:lower:]]+)", paste0("\\1", sep, "\\2"), x)
    x <- gsub("([[:lower:][:digit:]])([[:upper:]])", paste0("\\1", sep, "\\2"), x)
    x <- gsub(paste0("\\", sep, "+"), sep, x)
    tolower(x)
}

# Convert separated character vector to camelCase
to_camel <- function(x) {
    gsub("([^[:alnum:]])([[:alnum:]])", "\\U\\2", x, perl = TRUE)
} 

# Capitalize character vector
capitalize <- function(x) {
    gsub("(^|[[:space:]])([[:alpha:]])", "\\1\\U\\2", x, perl = TRUE)
}