[R] How to change letters after space into capital letters

[McGehee, Robert]

This short function capitalizes the first letter of each word in a
character string, which is what I think you want.

capitalize <- function(x) {
    x <- strsplit(x, " ")
    for (i in seq(along = x)) {
        substr(x[[i]], 1, 1) <- toupper(substr(x[[i]], 1, 1))
    }
    sapply(x, function(z) paste(z, collapse = " "))
}

Robert

-----Original Message-----
From: Wolfram Fischer [mailto:wolfram at fischer-zim.ch] 
Sent: Monday, April 11, 2005 6:22 AM
To: r-help at stat.math.ethz.ch
Subject: [R] How to change letters after space into capital letters


What is the easiest way to change within vector of strings
each letter after a space into a capital letter?

E.g.:
  c( "this is an element of the vector of strings", "second element" )
becomes:
  c( "This Is An Element Of The Vector Of Strings", "Second Element" )

My reason to try to do this is to get more readable abbreviations.
(A suggestion would be to add an option to abbreviate() which changes
letters after space to uppercase letters before executing the
abbreviation
algorithm.)

Thanks - Wolfram

______________________________________________
R-help at stat.math.ethz.ch mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide!
http://www.R-project.org/posting-guide.html