※ 引述《pp61022 (fight)》之铭言：
library(dplyr)
library(jsonlite)
content <- readLines("roam_prescription_based_prediction.jsonl")
line1.cms <- fromJSON(readlines[1])$cms_prescription_count %>% as.data.frame
mydata <- line1.cms
for (i in 2:length(content)) {
mydata <- bind_rows(mydata, fromJSON(content[i])$cms_prescription_count
%>% as.data.frame)
}
这会parse出其中一个data frame
另一个类似方法操作吧...