Is there a simple method of changing text into 'Proper Ca se'
Thank you for the help. As a result I have written two functions.
SentCase <- function(InputString){
InputString <-
paste(toupper(substring(InputString,1,1)),tolower(substring(InputString,2)),
sep="")
}
ProperCase <- function(InputString){
sapply(lapply(strsplit(InputString," "), SentCase), paste, collapse=" ")
}
> cat(SentCase("this little string"))
This little string>
> cat(ProperCase("this little string"))
This Little String>
-----Original Message-----
From: Uwe Ligges [mailto:ligges at statistik.uni-dortmund.de]
Sent: Wednesday, 14 May 2003 2:40 PM
To: Mulholland, Tom
Cc: 'Spencer Graves'; (r-help at stat.math.ethz.ch)
Subject: Re: [R] Is there a simple method of changing text into 'Proper Ca
se'
Mulholland, Tom wrote:
Yes and no. Given your response it appears that "Proper Case" is not a term that everyone uses. In Excel there is a function "Proper" which in essence changes "this line into something like this" into "This Line Into Something Like This." My look at casefold seesm to be that is is a wrapper of two functions to change text into either Lower or Upper case.So my question is about how do you just capitalise the first letter in each word.
Perl experts might do it differently, but the "R way" seems to be substring(x, 1, 1) <- toupper(substring(x, 1, 1)) substring(x, 2) <- tolower(substring(x, 2)) Uwe Ligges
Thanks for your response. Tom -----Original Message----- From: Spencer Graves [mailto:spencer.graves at PDF.COM] Sent: Wednesday, 14 May 2003 12:51 PM To: Mulholland, Tom Cc: ' (r-help at stat.math.ethz.ch)' Subject: Re: [R] Is there a simple method of changing text into 'Proper Case' It's not obvious to me what you are asking, but I'm guessing that "casefold" might help. hth. spencer graves Mulholland, Tom wrote:
I am probably just looking in the wrong place. I am sure there are a number of ways to do this. If anyone could point me in the right direction it would be very much appreciated. Thanks
_________________________________________________ Tom Mulholland Senior Policy Officer WA Country Health Service 189 Royal St, East Perth, WA, 6004 Tel: (08) 9222 4062 e-mail: Tom.Mulholland at health.wa.gov.au <mailto:Tom.Mulholland at health.wa.gov.au>