在 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 包(v2.0.1)于 2022-03-28 创建}

但我从未见过有人这样做，而且有些简陋的语法很好地表明我在这里编写的内容并不是为了保存加载函数。您还可以使用saveRDS(foo, "foo.rds")保存函数并readRDS("foo.rds")读取它。请注意，在这两种情况下，函数的名称都不会存储，因此您需要使用 来指定它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 还使得创建个人包变得非常简单，这是另一个不错的选择（例如，参见https://r-pkgs.org/）。