deparse（substitute（））不能像我想要的那样工作

Question

重现问题的代码：

data(iris)
L=list(data=iris)
print(deparse(substitute(L[[1]])))
[1] "L[[1]]"

我希望结果是“虹膜”而不是“L [[1]]”，有没有办法？

Answer 1

L <- list(data=as.name("iris"))
L$data

实际检索数据：

eval(L$data)

但是你应该做什么，而不是玩eval和deparse，而是存储数据集的名称及其内容：

L <- list(iris=iris)
names(L)
L