r - 如何将源代码包含到 R 中的函数中？

Question

我编写了一个函数并将其保存在 .R 文件中。我想在修改它的同时在另一个 .R 文件中获取代码。

例如，我想要的是:

文件 1 代码:

func <- function(x=x) {sum(x)}

文件2代码:

func2 <- function(x) {source('file1.R')}
func2(x=c(2:3))
[1] 5

但是，这似乎不起作用。

Answer 1

尝试 source("file1.R", local=TRUE)。这将使计算发生在函数范围内，而不是(默认行为)工作区范围内。

但是，正如您目前所写的那样，它仍然无法正常工作，因为您的 file1 正在定义一个函数但没有对其求值。

为了实现你想要的行为，你需要这样的东西:

## file1.R ##
s <- sum(x)

## file2.R ##
func2 <- function(x) {
    source("file1.R", local=TRUE)
    return(s)
}
func2(x=c(2,3))