[R] Using objectname in function

[Gabor Grothendieck]

On Wed, Aug 18, 2010 at 7:10 AM, JesperHybel <jesperhybel at hotmail.com> wrote:
>
> Is there anyway I can convert a vectors objectname to a string to be used in
> fx:
>
> Monkey<-c(0,0,0,1,1,1)
> Wax<-c(1,0,1,0,1,0)
>
> f<-function(x,y){ table(x,y) }
>
> f(Monkey,Wax)
>
> so that the printout is not
>
>   y
> x   0 1
>  0 1 2
>  1 2 1
>
> but
>
>          Wax
> Monkey 0 1
>        0 1 2
>        1 2 1
>

Try this:

  f <- function(...) eval.parent(substitute(table(...)))