R/correct_capitalization.R

In SHoeks/BandcampR:

Defines functions correct_capitalization

Documented in correct_capitalization

# correctly capitalize every word of a lower case sentance
correct_capitalization <- function(x) {
  s <- strsplit(x, " ")[[1]]
  paste(toupper(substring(s, 1,1)), substring(s, 2),
        sep="", collapse=" ")
}