capwords("TEST") ## Test
capwords("TEST1 TEST2") ## Test1 Test2
capwords("O'NEIL") ## O'Neil
capwords("JOHN'S") ## John's
## Use sapply for converting character vectors
test.vector <- paste("TEST", 1:10, sep="")
sapply(test.vector, capwords)
Run the code above in your browser using DataLab