Question

我需要一个由命令列表创建的函数来完全评估，以便它与函数的“手动”版本相同。

背景：我在Microsoft R Server中使用ScaleR函数，需要将一组转换作为函数应用。 ScaleR对于需要传递一个如下所示的完全的函数非常挑剔：

functionThatWorks <- function(data) { 
  data$marital_status_p1_ismarried <- impute(data$marital_status_p1_ismarried)
  return(data)
}

我有一个函数可以创建这个转换列表（还有数百个，因此需要对其写入进行功能化）。

transformList <- list ("data$ismarried <- impute(data$ismarried)",
                 "data$issingle <- impute(data$issingle)")

此行将我想要的评估字符串输出到控制台，但我不知道将其从控制台输出移动到在函数中使用的方法：

cat(noquote(unlist(bquote(  .(noquote(transformList[1]))))))

我需要评估 functionIWant ，以便它与 functionThatWorks 相同。

functionIWant <- function(data){
  eval(  cat(noquote(unlist(bquote(  .(noquote(transformList[1])))))) )
  return(data)
}

identical(functionThatWorks, functionIWant)

编辑：根据@dww的代码添加答案。它在ScaleR中运行良好。它是相同的，减去无意义的间距。

functionIWant <- function(){}
formals(functionIWant) <- alist(data=NULL)
functionIWant.text <- parse(text = c(
  paste( bquote(  .(noquote(transformList[1]))), ";", "return(data)\n")
))
body(functionIWant) <- as.call(c(as.name("{"), functionIWant.text))

Answer 1

也许是这样的？

# 1st define a 'hard-coded' function    
f1 <- function (x = 2) 
{
    y <- x + 1
    y^2
}

f1(3)
# [1] 16

# now create  a similar function from a character vector  
f2 <- function(){}
formals(f2) <- alist(x=2)
f2.text <- parse(text = c('y <- x + 1', 'y^2'))
body(f2) <- as.call(c(as.name("{"), f2.text))

f2(3)
# [1] 16

评估列出的字符串以在r中创建函数对象

1 个答案: