do.call функция в R без загрузки пакета

Question

Я хочу, чтобы do.call функция (из-за экспорта) из пакета. Имя функции - это строка символов, например "lme4::lmer".

# Works, but not what I need 
library(lme4) 
do.call("lmer", ...) 
# Also works, but not what I need 
lme4::lmer(...) 
# Doesn't work: 
do.call("lme4::lmer", ...) 

Answer 1

Вы не можете включать :: в строке, поскольку :: является функцией. Эта строка не оценивается и не анализируется. do.call просто принимает функцию с помощью этого имени. Так же, как ::, $ также функция так это не работает, либо

a<-list(f=function(x) x+1) 
do.call(a$f, list(4)) 
# [1] 5 
do.call("a$f", list(4)) 
# Error in do.call("a$f", list(4)) : could not find function "a$f" 

Если вы хотите, чтобы иметь возможность найти функции из пространства имен, вы можете написать вспомогательную функцию, которая анализирует значения, когда они содержат ::

getfun<-function(x) { 
    if(length(grep("::", x))>0) { 
     parts<-strsplit(x, "::")[[1]] 
     getExportedValue(parts[1], parts[2]) 
    } else { 
     x 
    } 
} 
getfun("lme4::lmer") 

И это должно работать

do.call(getfun("lme4::lmer"), list(
    Reaction ~ Days + (Days | Subject), 
    quote(lme4::sleepstudy))) 

Answer 2

do.call(eval(parse(text="lme4::lmer")), ...) 

Eval с разбором будет работать!

> tmp <- expand.grid(letters[1:2], 1:3, c("+", "-")) 
> do.call(eval(parse(text='stringr::str_c')), c(tmp, sep = "")) 

[1] "a1+" "b1+" "a2+" "b2+" "a3+" "b3+" "a1-" "b1-" "a2-" "b2-" "a3-" "b3-" 

Ссылка: https://www.r-bloggers.com/converting-a-string-to-a-variable-name-on-the-fly-and-vice-versa-in-r/