1. # 读取JSON文件
library(rjson)
json_file <-
"http://api.worldbank.org/country?per_page=10®ion=OED&lendingtype=LNX&format=json"
json_data <-
fromJSON(paste(readLines(json_file), collapse=""))
# 将R对象变为JSON对象
# 方式一
test1 <- data.frame(id = 1:5, value = c("header1", "header2", "header3", "header4", "header5"))
library(rjson)
x2 <- toJSON(unname(split(test1, 1:nrow(test1))))
cat(x2)
#方式二
library(jsonlite)
x3 <- toJSON(test1)
cat(x3)