以编程方式在`::`调用r中切换包

自从 :: 可以看作是一个函数,它看起来像

`::`(dummy_pkg_name, foo)()

是你想要的。或者,

getFromNamespace("foo", ns = dummy_pkg_name)()

例如,

`::`(stats, t.test)
# function (x, ...) 
# UseMethod("t.test")
# <bytecode: 0x102fd4b00>
# <environment: namespace:stats>

getFromNamespace("t.test", ns = "stats")
# function (x, ...) 
# UseMethod("t.test")
# <bytecode: 0x102fd4b00>
# <environment: namespace:stats>

坚持 KISS ,只需在全局环境中重新分配新的命名函数。一定要漏掉 () 因为您没有请求运行函数。

parent_foo <- parentPkg::foo
child1_foo <- childPkg1::foo
child2_foo <- childPkg2::foo
child3_foo <- childPkg3::foo

然后,根据需要有条件地应用它们:

if (scenario=="child1") {
  obj <- child1_foo(...)
} 
else if (scenario=="child2") {
  obj <- child2_foo(...)
} 
...

你也可以创建一个 call() 然后可以对其进行评估。

call("::", quote(bar), quote(foo()))
# bar::foo()

投入使用:

c <- call("::", quote(stats), quote(t.test))
eval(c)
# function (x, ...) 
# UseMethod("t.test")
# <bytecode: 0x4340988>
# <environment: namespace:stats>

在函数中使用 setdiff 作为我们的默认功能:

f <- function(pkg, fn = setdiff) {
    pkg <- substitute(pkg)
    fn <- substitute(fn)
    eval(call("::", pkg, fn))
}

f(base)
# function (x, y) 
# {
#     x <- as.vector(x)
#     y <- as.vector(y)
#     unique(if (length(x) || length(y)) 
#         x[match(x, y, 0L) == 0L]
#     else x)
# }
# <bytecode: 0x30f1ea8>
# <environment: namespace:base>

f(dplyr)
# function (x, y, ...) 
# UseMethod("setdiff")
# <environment: namespace:dplyr>