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:[EMAIL PROTECTED]
Sent: Monday, April 11, 2005 6:22 AM
To: [email protected]
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
______________________________________________
[email protected] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide!
http://www.R-project.org/posting-guide.html
______________________________________________
[email protected] mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
