在 R 中将函数和代码从一个文件导出和导入到另一个文件

Question

我刚开始使用 R，之前可能已经回答过这个问题。 在 Javascript 和 Python 等其他语言中，可以将代码拆分为多个文件，然后在您的项目中从一个文件导出函数并将其导入另一个文件。

Python 中的例子是

从一个文件导出：

def CountWords(words):
 if words is not None:
 NumberOfWords = [Eachword.count(' ') + 1 for Eachword in words]
 return NumberOfWords

要导入另一个文件：

from wordcounter import CountWords

# use the CountWords function here

这在 R 中相当于什么？

Answer 1

从技术上讲，您可以：

foo <- function() {
  message("Hello")
}
dput(foo, "foo.R")

foo2 <- source("foo.R")$value
foo2()
#> Hello

^{由reprex package (v2.0.1) 创建于 2022-03-28}

但我从来没有见过有人这样做，有点简陋的语法很好地表明我在这里写的东西并不是为了保存加载函数。 您还可以使用saveRDS(foo, "foo.rds")保存 function 并readRDS("foo.rds")读取它。 请注意，在这两种情况下，都不会存储 function 的名称，因此您需要使用foo3 <- readRDS("foo.rds")进行分配。

我认为您通常会做的是创建一个名为（例如）“custom_functions.R”的文件来存储项目的所有函数，然后在每个脚本的开头使用source("custom_functions.R")来加载它们.

自定义函数.R：

# function to do stuff
foo <- function() {
  message("Hello")
}

你的正常脚本：

source("custom_functions.R")
foo()
#> Hello

在这种情况下，您不需要指定名称。

R 还可以非常直接地创建您的个人 package，这是另一个不错的选择（例如，参见https://r-pkgs.org/ ）。