Capitalise the first letter of each word in a string

simpleCap.R

# Capitalise the first letter of each word in a string
# From https://stackoverflow.com/questions/6364783/capitalize-the-first-letter-of-both-words-in-a-two-word-string
# 
# e.g.
# name <- c("great shearwater", "black-browed albatross", "southern giant petrel")
# sapply(name, simpleCap)
simpleCap <- function(x) {
  s <- strsplit(x, " ")[[1]]
  paste(toupper(substring(s, 1,1)), substring(s, 2),
        sep="", collapse=" ")
}