[R-pkg-devel] Forward function call

[Martin Maechler]

>>>>> 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