从函数输入中接收列表元素的名称

Question

通过一个.yml文件，我将许多文件路径加载到不同的数据帧。 它们是在命名列表中结构的。在这里，一个非常简化的版本：

settings_list <- list(survey = list(df1 = "path",
                                df2 = "path2",
                                df3 = "path3",
                                df4 = "path4"))

结构：

> str(settings_list)
List of 1
  $ survey:List of 3
..$ df1: chr "path"
..$ df2: chr "path2"
..$ df3: chr "path3"
..$ df4: chr "path4"

由于DFS的结构没有太大差异，因此我写了一个功能，它需要一个数据框架并清理它。

foo_cleaning(path = settings_list$survey$df3)

然后，我将使用purrr :: map（）在settings_list $调查的所有元素上循环

我要添加到函数的内容是将清洁的DF保存为单独的对象，并从列表到全局env的名称。 （因此，在这种情况下，一个名为“ DF3”的对象）。我知道，我可以简单地将它们全部存储在列表中，但是由于不同的原因，我也想在我的功能中包含此选项。

我基本上具有实施的代码， 但是，我只是在努力从功能输入中提取正确的名称。

names(settings_list$survey$df3)
NULL #desired output: "df3"

在将名称应用于列表的较高级别时，将为我提供名称的整个向量，但 但是，我如何仅提取与settings_list $ usize $ df3相对应的名称？

names(settings_list$survey)
[1] "df1" "df2" "df3" "df4"

另外，如何将函数input settings_list $ usize $ df3转换为字符串，以便可以使用Regex提取其最后一部分？

Answer 1

您可以使用match.call，

foo_cleaning <- function(x) {
  y <- as.list(match.call())$x
  result <- as.character(y)[length(as.character(y))]
  cat("Item", result, "requested")
}

foo_cleaning(settings_list$survey$df3)
#> Item df3 requested

但是，这不太可能与map之类的东西很好地工作，因为map t通过使用$符号传递所有命名元素来工作。实际上，如果您使用MAP尝试此功能，则可以得到：

purrr:::map(settings_list$survey, foo_cleaning)
#> Item i requested
#> Item i requested
#> Item i requested
#> Item i requested

这样做的更好方法是允许您的功能获取对象及其名称。例如：

foo_cleaning <- function(x, x_nm) {
  cat("Item", x_nm, "requested\n")
  # Do cleaning with x
}

如果您认为这似乎毫无意义，请考虑您可以清洁所有数据帧，并通过执行函数中使用它们的名称：

purrr::map2(settings_list$survey, names(settings_list$survey), foo_cleaning)
#> Item df1 requested
#> Item df2 requested
#> Item df3 requested
#> Item df4 requested

顺便说一句，直接以您建议的方式为全局环境分配一个变量，在用户中非常有问题 - 插入R代码，因为夸大用户的其他变量非常容易，并且对于R函数而言并不是预期的行为。

^由