Hi:
Hi:

Observe that if you quote the name of the variable in your original
function,
everything is fine; in fact, you can ask for multiple variables.

> k <- function(df, col) df[col]
> k(testdata, 'var1')
        var1
1 0.91663902
2 0.60470753
3 0.09599891
> k(testdata, 'censor')
  censor
1      0
2      0
3      0
> k(testdata, c('start', 'stop'))
  start stop
1     0    1
2     1    2
3     2    3

However, if you use the deparse/substitute trick, it works, but only
for a single variable:

k2 <- function(df, col) df[deparse(substitute(col))]
> k2(testdata, var1)
        var1
1 0.91663902
2 0.60470753
3 0.09599891
> k2(testdata, start)
  start
1     0
2     1
3     2
> k2(testdata, c(start, stop))
Error in `[.data.frame`(df, deparse(substitute(col))) :
  undefined columns selected

and the same error is returned if the variables are quoted.

HTH,
Dennis

On Fri, Feb 12, 2010 at 11:01 AM, Philipp Rappold <philipp.rapp...@gmail.com
> wrote:

> Sorry guys, but I have another one:
>
>
> I want to write a function that returns a certain column of a dataframe.
> The function accepts two argument: the dataframe and the name of the column,
> but the column is not given as a "string" but as a variable name.
>
> EXAMPLE
> ----------------------
>
> > testdata
>  start stop censor groupvar       var1      var2
> 1     0    1      0        1 0.91663902 0.0847912
> 2     1    2      0        1 0.60470753 0.6487798
> 3     2    3      0        1 0.09599891 0.2195178
> x
>
> k <- function(df, col) df[col]
>
> EXPECTED RESULTS
> -------------------------------------
> k(testdata, var1) should return the same output as testdata["var1"], which
> is
>
>        var1
> 1 0.91663902
> 2 0.60470753
> 3 0.09599891
> 4         NA
> 5 0.07747445
> 6 0.44608030
> 7 0.77317152
>
> Note that I want to use k(testdata, var1) instead of k(testdata, "var1").
>
> Thanks for your help!
> All the best
> Philipp
>
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>

        [[alternative HTML version deleted]]

______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Reply via email to