> On Dec 1, 2015, at 4:32 PM, David Winsemius <dwinsem...@comcast.net> wrote:
> 
> 
>> On Dec 1, 2015, at 2:57 PM, John Sorkin <jsor...@grecc.umaryland.edu> wrote:
>> 
>> I am trying to write a function that calls a function. The first call to 
>> SmallFn works without any problem, printing both the passed data and the 
>> column Wstscr. The second call does not work (error, Error in d[, column] : 
>> subscript out of bounds). 
>> 
>> The first call shows what I am trying to do with the second call. I am 
>> passing to the outer function doit12 the beginning of the name of the column 
>> that I want to access (Wst). doit12 creates the full name of the column 
>> (Wstscr) by using varxx <- deparse(susbstitute(variable)) and varscr <- 
>> paste(varxx,"scr",sep=""). I can access the column in doit12 as seen by the 
>> results of   print(data[,varscr]).
>> 
>> SmallFn works when it is called using SmallFn(Wstscr,data), but fails when 
>> called with SmallFn(varscr,data). I don't understand why the second call 
>> fails. varscr was shown to represent Wstscr.
>> 
>> Please tell my why the second call is not working, please put me out of 
>> one-full day of misery!
> 
> It’s telling you there is no column in that dataframe with the name “varscr”.
> 

Actually it’s a matrix, but the same reasoning applies.

— 
> David.
> 
> 
>> Thank you,
>> John
>> 
>> 
>> 
>> 
>> mydata <- cbind(   
>> patient_id=c(10163,10987,19882,19899,20104,20105,20167,20318,20338,20392),
>>                  
>> Wstscr=c(139.00,NA,101.80,103.00,76.40,116.00,139.80,111.31,NA,150.00))      
>>       
>> mydata     
>> 
>> doit12 <-function(variable,data) {
>> 
>> varxx <- deparse(substitute(variable))
>> cat("varxx created from first deparse substitute=",varxx,"\n")
>> varscr <- paste(varxx,"scr",sep="")
>> cat("1varscr=",varscr,"\n")
>> cat("Data inside doit12\n")
>> print(data)
>> cat("Print the Wstscr column of data. varscr created using paste after 
>> deparse substitute\n")
>> print(data[,varscr])
>> cat("\n\n")
>> 
>> SmallFn <- function(v,d) {
>>   cat("\nInside SmallFn\n")
>>   zz <-match.call()
>>   column <- deparse(substitute(v))
>>   cat("column=",column,"\n")
>>   cat("The results of match.call\n")
>>   print(zz)
>>   print("Hello world!")
>>   print(d)
>>   print(d[,column])
>> }
>> SmallFn(Wstscr,data)
>> SmallFn(varscr,data)
>> }
>> doit12(Wst,mydata)
>> John David Sorkin M.D., Ph.D.
>> Professor of Medicine
>> Chief, Biostatistics and Informatics
>> University of Maryland School of Medicine Division of Gerontology and 
>> Geriatric Medicine


David Winsemius
Alameda, CA, USA

______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
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