r - 如何在尚未导出的 R 包中使用函数？

Question

我正在构建一个带有许多辅助功能的简单 R 包。主要功能之一使用了很多辅助功能，例如:

....
#'@ description
#'@ param
#'@ export
...
mainfunction1 <- function(param1,...,auxiliaryfunction){
# Do some stuff
b <- auxiliaryfunction(param2) + c
return(b)
}

...
#'@ description
#'@ param
auxiliaryfunction1 <- function(param5,param6,...){# do stuff}

最终用户应使用 main 函数，如下所示:

result1 <- mainfunction1(param1, param2, auxiliaryfunction1)

问题是，当包被构建时，它永远不会找到辅助功能，除非它们被导出，但是我希望它们对最终用户不可用，或者至少避免用户通过引用错误覆盖它们的问题包命名空间。

我怎样才能做到这一点？
我也应该导出辅助功能吗？

Answer 1

您正在尝试解决一个非问题。

如果您希望用户使用某个功能，请将其导出。

如果您不希望用户使用某个功能，请不要导出它。

那说...

您有可能会关注函数是如何作为参数传递给其他函数的。函数是 R 中的第一类对象，因此它们可以很容易地传递。考虑以下示例:

m <- function(x, y) x + y
n <- function(x, y) x - y
k1 <- function(x, y, FUN) FUN(x, y)
k1(10, 5, FUN = m)
# [1] 15
k1(10, 5, FUN = n)
# [1] 5

k2 <- function(x, y, FUN = m) FUN(x, y)
k2(10, 5) # uses `m()` by default
# [1] 15
k2(10, 5, FUN = m)
# [1] 15
k2(10, 5, FUN = n)
# [1] 5

如果你真的不想让用户直接访问函数，而是想让他们选择使用哪个，那么在主函数的主体中定义辅助函数并使用，例如， switch()在它们之间进行选择:

fun <- function(x, method = c("A", "B")) {
   m <- match.arg(method)
   a <- function(x) x^2
   b <- function(x) sqrt(x)
   switch(m, A = a(x), B = b(x))
}
fun(2)
# [1] 4
fun(2, "A")
# [1] 4
fun(2, "B")
# [1] 1.414214