将带有命令的程序循环到其他程序

Question

我在一个程序中有以下几行代码：

source("R:/ML NC8 MENSAL.R")
source("R:/ ML NPC NC8 MENSAL.R")

上述程序都有以下代码行：

# Defining Variable
MONTH <- "01_2021"

我想在第一个程序中对这两个程序进行定义。

我应该写哪个代码？

谢谢你的帮助。

Answer 1

如果两个脚本都有这些行，并且只想从第一个脚本返回，那么我会在两个脚本中都写一个函数。只有第一个会返回月份值。

month_return_scr1 <- function(){
MONTH <- "01_2021"
#more code
return(list(MONTH, more variables, or data.frames)}
month_return_scr2 <- function(){
MONTH <- "01_2021"
#more code
return(list(more variables, or data.frames)}

第二个来源将不会返回Month。

Answer 2

我成功地使用了以下解决方案：

1. 创建一个程序-R:/constants.R-带有month变量(和任意所有程序中使用的其他程序(
2. 创建一个程序——R:/superprogram.R——执行所有23个程序
3. 在每23个程序中，替换此代码的变量定义源("R:/constants.R"(将源文件导入全局环境
4. 更改程序R:/constants.R中的变量并保存
5. 运行R:/superprogram.R