※ 引述《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
另一個類似方法操作吧...