[R-pkg-devel] Forward function call
Jan Gorecki
j@goreck| @end|ng |rom w|t@edu@p|
Tue Jun 9 11:54:38 CEST 2020
"pkg::fun" cannot be a name because it is a function call already
`::`(pkg, fun).
On Tue, Jun 9, 2020 at 8:10 AM Martin Maechler
<maechler using stat.math.ethz.ch> wrote:
>
> >>>>> Göran Broström
> >>>>> on Mon, 8 Jun 2020 23:02:30 +0200 writes:
>
> > Thanks for the responses!
> > I found the suggestion
>
> > Call[[1]] <- quote(survival::coxph)
>
> > easiest to implement. And it works.
>
> and it is what we use in R's own R source code in several
> places (and that's where/how I assume it also came to Ben
> Bolker, lme4, etc) :
>
> A simple grep inside current R's source <R>/src/library/ gives
>
> grep -r --color -nHF -e 'quote(stats::'
>
> ./stats/R/acf.R:28: m[[1L]] <- quote(stats::pacf)
> ./stats/R/aggregate.R:154: m[[1L]] <- quote(stats::model.frame)
> ./stats/R/aov.R:36: lmcall[[1L]] <- quote(stats::lm)
> ./stats/R/bartlett.test.R:86: m[[1L]] <- quote(stats::model.frame)
> ./stats/R/cor.test.R:213: m[[1L]] <- quote(stats::model.frame)
> ./stats/R/factanal.R:73: mf[[1L]] <- quote(stats::model.frame)
> ./stats/R/friedman.test.R:92: m[[1L]] <- quote(stats::model.frame)
> ./stats/R/ftable.R:150: m[[1L]] <- quote(stats::model.frame)
> ./stats/R/glm.R:52: mf[[1L]] <- quote(stats::model.frame)
> ./stats/R/glm.R:863: fcall[[1L]] <- quote(stats::glm)
> ./stats/R/lm.R:34: mf[[1L]] <- quote(stats::model.frame)
> ./stats/R/lm.R:546: fcall[[1L]] <- quote(stats::model.frame)
> ./stats/R/loess.R:34: mf[[1L]] <- quote(stats::model.frame)
> ./stats/R/manova.R:22: fcall[[1L]] <- quote(stats::aov)
> ./stats/R/model.tables.R:485: fcall <- c(list(quote(stats::model.frame)), args)
> ./stats/R/nls.R:570: mf[[1L]] <- quote(stats::model.frame)
> ./stats/R/ppr.R:30: m[[1L]] <- quote(stats::model.frame)
> ./stats/R/prcomp.R:69: mf[[1L]] <- quote(stats::model.frame)
> ./stats/R/princomp.R:30: mf[[1L]] <- quote(stats::model.frame)
> ./stats/R/quade.test.R:102: m[[1L]] <- quote(stats::model.frame)
> ./stats/R/spectrum.R:220: m[[1L]] <- quote(stats::plot.spec.coherency)
> ./stats/R/spectrum.R:226: m[[1L]] <- quote(stats::plot.spec.phase)
> ./stats/R/t.test.R:141: m[[1L]] <- quote(stats::model.frame)
> ./stats/R/ts.R:744: m[[1L]] <- quote(stats::window)
> ./stats/R/var.test.R:97: m[[1L]] <- quote(stats::model.frame)
> ./stats/R/xtabs.R:40: m[[1L]] <- quote(stats::model.frame)
>
>
> > 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
>
> > ______________________________________________
> > R-package-devel using r-project.org mailing list
> > https://stat.ethz.ch/mailman/listinfo/r-package-devel
>
> ______________________________________________
> R-package-devel using r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-package-devel
More information about the R-package-devel
mailing list