0

我有这个数据结构,我想通过 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,但我将数据推送到的提供者只接受第一种格式。我怎样才能做到这一点?

4

1 回答 1

1
tmpdf <- data.frame(Date=c("20140610", "20140611"), Users=c(5,10))
tmpdf <- apply(tmpdf, 1, as.list) #ADDED
tmp <- list(data=tmpdf, 
        onduplicate=data.frame(Users="replace"), 
        type=data.frame(Users="line"), 
        color=data.frame(Users="#52ff7f"))
cat(toJSON(tmp))

{ "data": [ { "Date": "20140610","Users": " 5" },
            { "Date": "20140611","Users": "10" } ],
 "onduplicate": { "Users": "replace" },
 "type": { "Users": "line" },
 "color": { "Users": "#52ff7f" } 
} 

亲切的问候

于 2014-06-18T18:03:10.257 回答