从变量名创建字符串并通过递归函数运行

Question

我有一个数据框列表：

frame_list = lst(NotREP, Day0_4, Day10_12, Day14_15, Day20, Day5_7, OIS)

我想为每个数据框创建文件夹，每个文件夹都带有数据框的名称（然后根据同一函数中的其他分析将内容放入这些文件夹中，所以我不能只使用 sapply）。我创建了（简化的）函数：

Create_dir = function(data){
  filename = deparse(substitute(data))
  dir.create(filename, showWarnings = FALSE)
}

并使用了for循环

for(i in frame_list){
  Create_dir(i)
}

但这会将所有文件夹命名为“i”。有没有办法可以通过Create_dir 函数运行数据框列表并为文件夹提供正确的名称？

或者，我可以在 framelist 中命名数据框：

names(Filter_list) = c("NotREP", "Day0_4", "Day10_12", "Day14_15", "Day20", 
    "Day5_7", "OIS")

但我不知道如何让 for 循环识别名称 [i]。我试过了

for(i in Filter_list) {
  foldername = names(Filter_list)[[i]]
  Create_dir(foldername)
  }

和各种类似的东西，但无法让for函数识别名字。

谢谢！

Answer 1

这是一个表示在循环中使用函数时应该使用eval 而不是deparse 的表达式：

frame_list <- list("Hello", "World")

Create_dir1 = function(data) print(deparse(substitute(data)))

Create_dir2 <- function(data) print(eval(substitute(data)))

for(i in frame_list) Create_dir1(i)
#> [1] "i"
#> [1] "i"

for(i in frame_list) Create_dir2(i)
#> [1] "Hello"
#> [1] "World"

---

更新

根据 OP 的进一步信息，我们根本不需要非标准评估，因为名称可以直接传递给 dir.create 而无需 Create_dir 函数：

names(Filter_list) <- c("NotREP", "Day0_4", "Day10_12", "Day14_15", "Day20", 
    "Day5_7", "OIS")

for(i in names(Filter_list)){
   dir.create(i, showWarnings = FALSE)
   dosomethingwith(Filter_list[[i]])
}

^{由reprex package (v0.3.0) 于 2020-05-15 创建}