我有这个数据结构,我想通过 RJSONIO::toJSON 调用将其转换为 JSON
tmpdf<-data.frame(Date=c("20140610", "20140611"), Users=c(5,10))
tmp<-list(data=tmpdf,
onduplicate=data.frame(Users="replace"),
type=data.frame(Users="line"),
color=data.frame(Users="#52ff7f"))
我需要生成这些数据:
{ "data": [ { "Date": "20140610", "Users": "5"},
{ "Date": "20140611", "Users": "10"} ],
"onduplicate":{ "Users": "replace" },
"color": { "Users": "#52ff7f" },
"type": { "Users": "line" }
}
但是当我使用 RJSONIO
> cat(toJSON(tmp))
我得到:
{ "data": { "Date": ["20140610", "20140611"], "Users":[5, 10]},
"onduplicate":{"Users":"replace"},
"color": {"Users":"#52ff7f"}
"type": {"Users":"line"},
}
这与需要的几乎相同,但是数据嵌套出错了。并不是说这只是一个小例子。这需要对数百个数据点进行。tmpdf 模拟的原始数据将始终作为 data.frame 交付。两个 JSON 都是有效的 JSON,但我将数据推送到的提供者只接受第一种格式。我怎样才能做到这一点?