将带有参数作为参数的函数传递给R中的另一个函数

Question

考虑一个例子：

我想将带有或不带有参数的函数传递给另一个函数，并以以下方式使用它：

genfx <- function(fx, fy, M, fs, ...){ 

  a <- 1
  b <- fx(a)
  ...
}

当fx = dunif起作用时，但是如何为fx传递其他参数，例如dunif(min=-0.5, max-0.5) ）？ 是否可以在不为genfx指定额外参数的情况下做到这genfx ？

Answer 1

没有更多细节，我们可能不需要它们，最简单的情况是将...插入对fx的调用中，就好像...只是另一个参数：

genfx <- function(fx, fy, M, fs, ...){ 

  a <- 1
  b <- fx(a, ...)
  ## more code here
}

例如：

genfx <- function(fx, ...){ 

  a <- 1
  b <- fx(a, ...)
  b
}

> genfx(dunif)
[1] 1
> genfx(dunif, min = -0.5, max = 1.5)
[1] 0.5

（请注意，为简单起见，我删除了其他参数。在这种情况下，这不是必需的。）

Answer 2

这是pryr包的一种方法

library(pryr)

genfx <- function(fx) { 
    a <- 1
    b <- fx(a)
    b
}

myDunif <- partial(dunif, min=-0.5, max=0.5)

genfx(dunif)
[1] 1
genfx(myDunif)
[1] 0

partial只是准备一个带有部分完整参数列表的函数。 在这种情况下很方便。