Is there a simple method of changing text into 'Proper Ca se'

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.

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

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

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))

ls(NULL, patt="<-$")

Uwe Ligges wrote:

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))

I hadn't come across this use of substring on the left hand side of <-
before. Now, of course, I see it explained on the help page for substr.

What other special functions can appear on the left hand side of <-? Is
there anywhere I can look to find a list? I've come across
  vector[vector of logicals] <- 
  vector[vector of integers] <- 
  data.frame[] <-

One thing I would find very handy is a shortcut for
  res <- myfunc()
  a <- res$val1
  b <- res$val2
Something along the lines of
  list(a=val1,b=val2) <- myfunc()
but I don't know what the right syntax would be or how I'd go about
programming it. Any suggestions?

Damon Wischik.

One thing I would find very handy is a shortcut for
  res <- myfunc()
  a <- res$val1
  b <- res$val2
Something along the lines of
  list(a=val1,b=val2) <- myfunc()
but I don't know what the right syntax would be or how I'd go about
programming it. Any suggestions?

Damon Wischik <djw1005 at cam.ac.uk> wrote:
 

One thing I would find very handy is a shortcut for
 res <- myfunc()
 a <- res$val1
 b <- res$val2
Something along the lines of
 list(a=val1,b=val2) <- myfunc()
but I don't know what the right syntax would be or how I'd go about
programming it. Any suggestions?
   

I agree this would be handy!  And appealing to Perl folks who are used to:
 Perl> ($arg1, $arg2) = @ARGV;
I couldn't figure out how to do it with replacement functions (see Prof Brian
Ripley's <ripley at stats.ox.ac.uk> reply), but here's another approach:

multi.assign <- function(x, ...) {
 mycall <- match.call()[-2]
 mycall[1] <- call("list")
 mylist <- eval(mycall, x)
 for (i in names(mylist)) assign(i, mylist[[i]], parent.frame())
}

Here's an example:
 R> myfunc <- function() list(val1=7, val2=c(5,5))
 R> multi.assign(myfunc(), a=val1, b=val2, d=val1+val2)
 R> a
    [1] 7
 R> b
    [1] 5 5
 R> d
    [1] 12 12