function - R：将字符串指定为调用另一个函数的函数的参数

Question

这是一个关于 R 中编码的问题。

我提供的例子是说教的。假设我有名为“func1”和“func2”的函数，每个函数都有两个参数（比如说标量）。我想指定另一个具有三个参数的函数“applyfunction”：要使用的函数的最后一个数字（“1”或“2”），以及该函数的两个参数。例如，我想做这样的事情（这当然行不通）：

applyfunction(1,2,3)它将有效运行的地方func1(2,3)和

applyfunction(2,9,43)它将有效运行的地方func2(9,43)。

有任何想法吗？

最好的，数据库

Answer 1

您可能想查看do.call()，它使用列表中提供的参数调用函数。围绕它编写一个完全符合您要求的包装器并不难。

function1=function(a,b)a+b
function2=function(a,b,c)a+b+c

do.call("function1",list(1,2))
do.call("function2",list(1,2,3))

编辑：包装将是：

applyfunction=function(fun,...)do.call(fun,list(...))

applyfunction("function1",1,2)
applyfunction("function2",1,2,3)

Answer 2

这是另一种选择。您可以将更多功能添加到switch列表中。

func1 <- function(a, b) a + b
func2 <- function(a, b) a - b
applyfunction <- function(FUN, arg1, arg2) {
  appFun <- switch(FUN,
      func1,  # FUN == 1
      func2,  # FUN == 2
      stop("function ", FUN, " not defined"))  # default
  appFun(arg1, arg2)
}
applyfunction(1,2,3)
# [1] 5
applyfunction(2,9,43)
# [1] -34
applyfunction(3,9,43)
# Error in applyfunction(3, 9, 43) : function 3 not defined

Answer 3

如果您真的希望“按数字”完成：

> applyfunction=function(n,a,b){get(paste("func",n,sep=""))(a,b)}
> func1=function(a,b){a+b}
> func2=function(a,b){a*b}
> applyfunction(1,4,3)
[1] 7
> applyfunction(2,4,3)
[1] 12

使用 get 和 paste 来获取与名称关联的函数。

Answer 4

将函数变量之一用作开关怎么样？

func1 <- function(x,y,z) { 
## Function One stuff goes here
if (x == 1) { 
var1 <- 1 
} 
## Function Two stuff goes here 
if (x == 2) { 
var1 <- 2 
}
return(var1)
} 

而且，您可以使用相同的功能，开关是变量“x”：

> func1(1,1,1)
[1] 1
> func1(2,1,1)
[1] 2

Answer 5

这里是切换或粘贴的替代方法，只需使用索引从列表中选择：

 function1=function(a,b) a+b
 function2=function(a,b,c) a*b
 applyfunc <- function(n, aa, bb){ c(function1, function2)[[n]](aa,bb) }
 applyfunc(1, 4, 3)
 # [1] 7
 applyfunc(2, 4, 3)
 #[1] 12
 applyfunc(3, 4, 3)
# Error in c(function1, function2)[[n]] : subscript out of bounds