Question

我想在R中导入json数据我知道有关此主题的一些讨论已经发布，但不幸的是我没有得到这些代码的结果，或者我的文件有很多错误。

我想导入这个： https://api.stocktwits.com/api/2/streams/symbol/AAPL.json 在R。

我试着这样做：

AAPLapi <-  'https://api.stocktwits.com/api/2/streams/symbol/AAPL.json'

AAPLapi <- fromJSON(AAPLapi)

AAPLapi <- lapply(AAPLapi, function(x) {
  x[sapply(x, is.null)] <- NA
  unlist(x)
})

table=do.call("rbind", AAPLapi)
View(table)

但它在table=do.call行发生了错误....... 上周我不知道为什么但这条线路工作正常，但我有一张非常奇怪的桌子，这是错误的。

你能帮帮我吗？

Answer 1

试用套餐jsonlite也许它可以帮助您：

library("jsonlite")
your_json <- stream_in(url("https://api.stocktwits.com/api/2/streams/symbol/AAPL.json"))
str(your_json, max.level = 2)
View(your_json$messages)

如果你的json在.txt文件中，你可以这样做：

download.file(url = "https://api.stocktwits.com/api/2/streams/symbol/AAPL.json", destfile = "AAPL.txt")
your_json <- stream_in(file("AAPL.txt"))

Answer 2

试试这个

library(curl)
library(jsonlite)
AAPLapi <- 'https://api.stocktwits.com/api/2/streams/symbol/AAPL.json'
df=stream_in(curl(AAPLapi))

导入一些json数据

2 个答案: