如何在R中的函数中转换用户输入？

Question

我正在尝试在R中开发一个UDF函数，该功能应该像这样起作用：

• 用户编写数学方程（例如 2*x + 4 ）
• 我的函数应在R功能中转换输入并集成它具有下限/上限（ 0和1 ），

因此，我的功能（2*x+4）必须解决此问题并显示5作为输出。

我尝试过的内容：

myfunction <- function(x, low, up) {

        user_input <- function(x){}
        res <- integrate(user_input, lower = low, upper = up)
        
return(res)
   }

myfunction(2*x+4, low = 0, up = 1)

错误：

集成中的错误（user_input，下=低，upper = up）： 功能的评估给出了错误长度

的结果

---

，我可以做以下操作：

integrand <- function(x){2*x+4}
integrate(integrand, lower = 0, upper = 1)

但这不是我想要的。

我会为一些提示感到非常高兴。

Answer 1

我们可以进行

myfunction <- function(y, low, up) {

        user_input <- as.function(c(alist(x = ), list(substitute(y))))
        res <- integrate(user_input, lower = low, upper = up)
        
return(res)

   }

测试

myfunction(2*x+4, low = 0, up = 1)
5 with absolute error < 5.6e-14