[R-pkg-devel] Forward function call

[Göran Broström]

Thanks for the responses!

I found the suggestion

Call[[1]] <- quote(survival::coxph)

easiest to implement. And it works.

Best, Göran

On 2020-06-08 21:42, Ben Bolker wrote:
>   I think quote(survival::coxph) will work in place of as.name() ?
> 
> On Mon, Jun 8, 2020 at 3:12 PM Göran Broström <goran.brostrom using umu.se> wrote:
>>
>> Hello,
>>
>> the function 'coxreg' in my package 'eha' is often just a wrapper for
>> 'coxph' in survival, so I have code like
>>
>>       if (cox.ph){
>>           Call <- match.call()
>>           Call[[1]] <- as.name("coxph")
>>           fit <- eval.parent(Call)
>>           return(fit)
>>       }
>>
>> which works since eha depends on survival. Now I am thinking of changing
>> Depends to Imports, and I would like to change the code to
>>
>>       if (cox.ph){
>>           Call <- match.call()
>>           Call[[1]] <- as.name("survival::coxph")
>>           fit <- eval.parent(Call)
>>           return(fit)
>>       }
>>
>> but this doesn't work, because the function name is turned into
>> `survival::coxph` (with the backticks) and the evaluation fails.
>>
>> How can I solve this?
>>
>> Thanks, G,
>>
>> ______________________________________________
>> R-package-devel using r-project.org mailing list
>> https://stat.ethz.ch/mailman/listinfo/r-package-devel