如何在将表添加到对象时自动命名表？

Question

我有一个装满CSV文件的文件夹。我想将它们全部放入一个对象中，以便更容易使用。我现在把它们放在RStudio所指的那个＆＃34;一个大的列表＆＃34;，但如果可能的话我希望能够通过他们的名字而不是数字来引用它们（我不太可能知道哪个数字是我头顶的源文件。

这里有一些示例代码：

library(tidyverse)
openfile <- function(filename){
  read_csv(filename) #This function is more complex in reality
}

filenames <- list.files("data/", pattern="*.csv", full.names=TRUE)
ldf<-lapply(filenames,openfile)

问题在于，这似乎让我感到很麻烦，我可以毫不费力地使用它。有没有办法修改东西（函数调用，函数本身，或两者兼而有之），所以我可以参考，比方说，

ldf$`table1.csv`

或类似的东西？