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.brost...@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@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-package-devel

______________________________________________
R-package-devel@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-package-devel

Reply via email to