Skip to content

Instantly share code, notes, and snippets.

@JoeGermuska
Created April 16, 2010 18:54
Show Gist options
  • Save JoeGermuska/368793 to your computer and use it in GitHub Desktop.
Save JoeGermuska/368793 to your computer and use it in GitHub Desktop.
strfix <- function(s) {
s = gsub("(^ +)|( +$)", "", s)
s = sub("^(.*)$","\\U\\1",s, perl=TRUE)
return (s)
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment