将对象列表发送到函数时如何获取对象的原始名称

Question

假设我有以下功能：

return_name <- function(data){
  for(datasets in data)   
    print(deparse(substitute(datasets)))
}

my_data_1 <- data.frame(a = "a", b = "b")
my_data_2 <- data.frame(a = "a", b = "b")
return_name(list(my_data, my_data_2))

我希望这个函数能够打印my_data_1，后跟my_data_2（内存中对象的名称。

而是打印整个对象的结构。

编辑@Ronak

在我的实际代码中，我正在遍历数据框列表（不是命名列表）。我需要能够 grep 在 for 循环中的当前对象的名称上。

看起来像这样：

data_list = list(my_data_1, my_data_2)
random_function <- function(data_list){
  for(datasets in data_list)  
    value = ifelse(grepl("my_data_1", return_name(datasets)), 1, 0) 
}

问题是您的答案中描述的 return_name 函数将返回“数据集”，而不是实际的原始对象名称。

Answer 1

这是一种黑客攻击：

return_name <- function(data){
   strsplit(gsub('list|[()]', '', deparse(substitute(data))), ',\\s*')[[1]]
}

return_name(list(my_data, my_data_2))
#[1] "my_data"   "my_data_2"
return_name(my_data_1)
#[1] "my_data_1"