In R, how to get an object’s name after it is sent to a function?

by

The old deparse-substitute trick:

a<-data.frame(x=1:10,y=1:10)
test<-function(z){
   mean.x<-mean(z$x)
   nm <-deparse(substitute(z))
   print(nm)
   return(mean.x)}
 
 test(a)
#[1] "a"   ... this is the side-effect of the print() call
#          ... you could have done something useful with that character value
#[1] 5.5   ... this is the result of the function call

Edit: Ran it with the new test-object

Note: this will not succeed inside a local function when a set of list items are passed from the first argument to lapply (and it also fails when an object is passed from a list given to a for-loop.) You would be able to extract the “.Names”-attribute and the order of processing from the structure result, if it were a named vector that were being processed.

> lapply( list(a=4,b=5), function(x) {nm <- deparse(substitute(x)); strsplit(nm, '\\[')} )
$a      # This "a" and the next one in the print output are put in after processing
$a[[1]]
[1] "X"    ""     "1L]]"  # Notice that there was no "a"


$b
$b[[1]]
[1] "X"    ""     "2L]]"

> lapply( c(a=4,b=5), function(x) {nm <- deparse(substitute(x)); strsplit(nm, '\\[')} )
$a
$a[[1]]   # but it's theoretically possible to extract when its an atomic vector
[1] "structure(c(4, 5), .Names = c(\"a\", \"b\"))" ""                                            
[3] "1L]]"                                        


$b
$b[[1]]
[1] "structure(c(4, 5), .Names = c(\"a\", \"b\"))" ""                                            
[3] "2L]]"

More Related Contents:

  1. Predict() – Maybe I’m not understanding it
  2. Fitting a linear model with multiple LHS
  3. Axis labels on two lines with nested x variables (year below months)
  4. ggplot2: sorting a plot
  5. Subscript letters in ggplot axis label
  6. Plotting lines and the group aesthetic in ggplot2
  7. How to divide each row of a matrix by elements of a vector in R
  8. Why do I get “warning longer object length is not a multiple of shorter object length”?
  9. Multiple use of the positional `$` operator to update nested arrays
  10. Summarize all group values and a conditional subset in the same call
  11. How do you convert dates/times from one time zone to another in R?
  12. Convert Named Character Vector to data.frame
  13. Remove backslashes from character string
  14. Add extra level to factors in dataframe
  15. predict.lm() in a loop. warning: prediction from a rank-deficient fit may be misleading
  16. Why doesn’t outer work the way I think it should (in R)?
  17. Reverse datetime (POSIXct data) axis in ggplot
  18. What does the @ symbol mean in R?
  19. How to change order of array dimensions
  20. How to resolve spherical geometry failures when joining spatial data
  21. Extract text after “/” in a data frame column
  22. Get column index from label in a data frame
  23. use multiple columns as variables with sapply
  24. Combined plot of ggplot2 (Not in a single Plot), using par() or layout() function? [duplicate]
  25. R: extracting “clean” UTF-8 text from a web page scraped with RCurl
  26. add missing rows to a data table
  27. Count number of non-NA values for every column in a dataframe [duplicate]
  28. How to convert a date from a character string?
  29. Create a time interval of 15 minutes from minutely data in R?
  30. Fill option for fread

Leave a Comment