Skip to content

Instantly share code, notes, and snippets.

@dholstius

dholstius/titlecase.R

Created November 18, 2014 23:54
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save dholstius/51c6403bae1921d6a2f6 to your computer and use it in GitHub Desktop.
Save dholstius/51c6403bae1921d6a2f6 to your computer and use it in GitHub Desktop.
Download ZIP
titlecase.R
Raw
titlecase.R
titlecase <- function (x) {
# TODO: use Rex package
gsub("\\b([a-z])([a-z]+)", "\\U\\1\\L\\2", tolower(x), perl = TRUE)
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment