从 R 函数中的文本文件导入方程式

Question

我正在尝试将方程式从 .txt 文件加载到 R 函数中。方程式很长，但为了简单起见，我的 test.txt 文件只包含 a + b.

equation <- function(a,b) {
data <- read.delim("test.txt", header = F, col.names="equation", strip.white=F)
return (data$equation) 
}

equation(1,1)

我已经尝试了上面的代码，它应该给出 2 (1+1) 的结果，但数据是作为因子加载的，我无法破解如何将其解析为属性。

Answer 1

使用eval(parse()):

equation <- function(a,b) {
    data <- readr::read_file("test.txt")
    return( eval(parse(text = data) ))
}
equation(4,5)
[1] 9

Answer 2

使用 readLines.

eq <- function(a, b) eval(parse(text=readLines("equ.txt")))
eq(1, 1)
# [1] 2

Import equation from text file in R function