R语言JSON转换

library("RJSONIO")
解析JSON
fromJSON()
生成JSon
数据框生成
name=c(1:5)
value=c(6:10)
da=data.frame(name,value)
da
cat(toJSON(da))
{
 "name": [ 1, 2, 3, 4, 5 ],
"value": [ 6, 7, 8, 9, 10 ] 
}
键值对JSON生成
dad=as.matrix(da)
cat(toJSON(dad))
[ {
   "name": 1,
  "value": 6 
  },
{
   "name": 2,
  "value": 7 
  },
{
   "name": 3,
  "value": 8 
  },
{
   "name": 4,
  "value": 9 
  },
{
   "name": 5,
  "value": 10 
  } ]
生成JSON文件  
s=toJSON(dad)  
writeLines(s, "fin.json")  
列表转JSON
a=c(1,1)
a1=c(2,2)
a2=c(3,3)
dd=