R help - Dec 2005 - return character

Hi All,
I have several lines of commands, and beacuse I will use these many
times, so I collected
these commands together using a function to describe it. like the following:
my.fun<-function(){
   .........
   entertitle()
   xaxis<-A
   yaxis<-B
   plot(....,xlab=xaxis,ylab=yaxis)
   .......
}

entertitle<-function()  {
   cat("enter the name of A\n")
   A<-readline()
   cat("enter the name of B\n")
   B<-readline()
   return(A,B)
}
I hope the A and B generate form function " entertitle " can return to
my.fun, and
do the following processing. Am I missing something? Any help as to
where to start would be welcome. Thanks in advanced !!

On 12/6/05, Judy Chung <cp3942 at gmail.com>
wrote:
> Hi All,
> I have several lines of commands, and beacuse I will use these many
> times, so I collected
> these commands together using a function to describe it. like the
following:
> my.fun<-function(){
>   .........
>   entertitle()
>   xaxis<-A
>   yaxis<-B
>   plot(....,xlab=xaxis,ylab=yaxis)
>   .......
> }
>
> entertitle<-function()  {
>   cat("enter the name of A\n")
>   A<-readline()
>   cat("enter the name of B\n")
>   B<-readline()
>   return(A,B)
> }
> I hope the A and B generate form function " entertitle " can
return to
> my.fun, and
> do the following processing. Am I missing something? Any help as to
> where to start would be welcome. Thanks in advanced !!
Replace the return with:

   return(list(A = A, B = B))

and then change the body of my.fun to:

   with(entertitle(), {
     ... rest of function body goes here ...
   }