从r脚本中运行r脚本并更改一些值

我有一个R脚本，我想运行它来导入一些数据。R脚本称为

load\u in\u year1-4

。我设计了这个脚本，这样我只需对顶部的代码进行3次更改，所有内容都将运行并导入正确的数据文件

这三个变化是：

year <- "Year4"
weeks <- "1270_1321"
product <- "/cookies"

---

要使用脚本生成函数，请执行以下操作：

get.tables <- function(year,weeks,product){
  files <- gsub("Year1", as.character(year), "E:/DATA/Dataset/Year1")
  parsedstub <- "E:/DATA/Dataset/files/"
  product <- paste0("prod", gsub("/", "_", as.character(product)))
  drug <- "_drug_"
  groc <- "_groc_"
  ####################Reading in the data###########################################
  drug <- read.table(paste0(files, product, product, drug, weeks), header = TRUE)
  groc <- read.table(paste0(files, product, product, groc, weeks), header = TRUE)
  list(drug = drug, groc = groc)
}

---

get.tables为什么不将
year、weeks、product
设置为原始脚本功能版本的函数参数，而不是重新运行之前需要手动编辑的内容？在任何情况下，如果你想要更详细的帮助，请发布一个带有R-可再现数据的帖子。你能再详细一点吗？您是否建议我创建一个函数并将其包装到整个脚本中？是的，您似乎希望使用不同的输入运行原始脚本。如果输入是函数的实际输入，而不是为了运行而必须手动更改的隐式输入，那么这就容易多了。我用一些代码编辑了我的原始帖子，我希望在其中进行更改您是否有特殊（非功能性）的功能要求为什么要从另一个脚本多次运行脚本，比如每次运行后释放内存？然后你必须将当前的实际参数写入一个参数文件，否则建议的带有函数的答案是完美的。我如何将函数应用于不同的年份、周和产品<代码>应用（年，get.tables）

？好的，得到了：get.tables（年=年，周=周，产品=产品）

#Make changes here
year <- "Year11"
weeks <- "1635_1686"
product <- "/cigets"

# year1: "1114_1165", year2: "1166_1217", year3: "1218_1269"


#Does not need changing
files <- gsub("Year1", as.character(year), "E:/DATA/Dataset/Year1")

parsedstub <- "E:/DATA/Dataset/files/"
produc <- paste0("prod", gsub("/", "_", as.character(product)))

drug <- "_drug_"
groc <- "_groc_"

####################Reading in the data###########################################

drug <- read.table(paste0(files, product, product, drug, weeks), header = TRUE)
groc <- read.table(paste0(files, product, product, groc, weeks), header = TRUE)

get.tables <- function(year,weeks,product){
  files <- gsub("Year1", as.character(year), "E:/DATA/Dataset/Year1")
  parsedstub <- "E:/DATA/Dataset/files/"
  product <- paste0("prod", gsub("/", "_", as.character(product)))
  drug <- "_drug_"
  groc <- "_groc_"
  ####################Reading in the data###########################################
  drug <- read.table(paste0(files, product, product, drug, weeks), header = TRUE)
  groc <- read.table(paste0(files, product, product, groc, weeks), header = TRUE)
  list(drug = drug, groc = groc)
}