从交互函数返回多个对象

Question

我试图在不同的对象中保存迭代函数两年的结果。

我的循环看起来像这样：

years <- c(2018, 2019)

for (i in seq_along(years)) {

if (i == 1) {
input_file <- "excelsheet 2019.xlsx"
} else {
input_file <- paste0("excelsheet ", years[i-1], ".xlsx")
}

fct1 <- read_excel(input_file)

fct2 <- read_cols(input_file)

fct3 <- read_data(input_file)

output[i] <- tidy(st)

}

我希望将每次迭代的输出保存在全局环境中。非常感谢任何帮助，谢谢。