以一种很好的方式在R脚本中生成一堆文件

我有一个脚本，比如说

main.R

。我在主脚本中提供了十几个函数文件。 它看起来像：

source('doThis.R')
source('doThat.R')
source('coolFun.R')
source('anotherFun.R')

……等等。

---

这不是一个大问题，但我会解决它。我是否应该只制作一个函数

sourceAll.R

来获取其他所有内容的源代码，然后在我的

main.R

中获取它的源代码？还是有其他处理函数的方法

有时候，我发现用草率的方式来获取一些R文件，而不是创建一个正确记录和维护的包（尽管后者可能会有回报，特别是当被许多用户共享时）

这就是我在这些案例中所做的：

file_names <- c(
  "doThis.R",
  "doThat.R",
  "coolFun.R",
  "anotherFun.R"
)
lapply(file_names, source)

如果源文件的所有文件都位于一个目录中，只需调用

list\u files（）

，即可获得文件名：

---

file\u名称我将创建一个包，而不是
source
ing多个文件。请注意，当您有很多文件并且正在处理prod env时，这可能会产生一些问题，尤其是在使用路径Thanke you@akrun时。我想做一个包裹，但我的老板认为我们不需要，他有他的理由。使用该脚本的人只需使用git拉取它，这样文件夹结构就保持不变。无论如何，到目前为止，我对采购没有任何问题。我会记住你说的话。你可以做一个函数，然后把你的名字映射到它？
lapply(file_names, source, local = TRUE)

file_names <- list.files(path = "path_to_directory_of_R_files", pattern = "\\.R$")
lapply(file_names, source)