在R列表中使用名称作为键

Question

我有这一行，我想将该文件的名称添加为结果列表的关键字。

lapply(Sys.glob('data*'), function(file) {result = do.call("rbind", fromJSON(file=file)); mode(result) <- 'numeric'; result} )


[[1]]
<matrix>

应该是

filename
<matrix>

我需要其他结构而不是列表吗？

Answer 1

filenames <- Sys.glob("data*")

result <- lapply(filenames, function(file) {result = do.call("rbind", fromJSON(file=file)); mode(result) <- 'numeric'; result} )

names(result) <- filenames

Answer 2

您必须在文件名向量中设置名称属性。

filenames <- Sys.glob("data*")
names(filenames) <- filenames
result <- lapply(filenames, function(file) 
                    {result = do.call("rbind", fromJSON(file=file))
                     mode(result) <- 'numeric'
                     result} )