нужно преобразовать фрейм данных в формат JSON в R

Question

У меня есть этот фрейм данных:

dput (головка (DAT))

structure(list(out = c(5, 0, 0, 0, 0, 0), Date = c(1423825200000, 
1423825500000, 1423825800000, 1423826100000, 1423826400000, 1423826700000 
)), .Names = c("out", "Date"), row.names = c(NA, 6L), class = "data.frame") 

мне нужно преобразовать его в формат JSON.

Я попытался это:

dList <- unname(apply(dat[,1:2], 1, function(y) unname(as.list(y)))) 
df1<-toJSON(list(data = dList)) 

я получаю что-то вроде этого:

{"data":[[[5],[1423825200000]],[[0],[1423825500000]],[[0],[1423825800000]],[[0],[1423826100000]],[[0],[1423826400000]],[[0],[1423826700000]],[[0],[1.423827e+12]],[[0],[1423827300000]],[[0],[1423827600000]],[[0],[1423827900000]]} 

Мне нужно, чтобы это было:

[[5, 1423825200000.0], [0, 1423825500000.0], [0, 1423825800000.0], [0, 1423826100000.0], [0, 1423826400000.0], [0, 1423826700000.0], [0, 1423827000000.0], [0, 1423827300000.0], [0, 1423827600000.0], [0, 1423827900000.0]] 

Любые идеи, как я мог это в R

Answer 1

Convert dat к матрице, а затем запустить его через jsonlite::toJSON

jsonlite::toJSON(as.matrix(dat)) 
# [[5,1423825200000],[0,1423825500000],[0,1423825800000],[0,1423826100000],[0,1423826400000],[0,1423826700000]]