2012-02-19 8 views
0

私はこの行を持っていますが、結果のリストのキーとしてファイルの名前を追加したいと思います。Rのキーとして名前を使用リスト

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


[[1]] 
<matrix> 

filename 
<matrix> 

は私がリスト以外の別の構造が必要ですすべきですか?

答えて

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

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

names(result) <- filenames 
1

ファイル名にnames属性を設定する必要があります。

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