json - 导入一些json数据

Question

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

我想导入这个： https ://api.stocktwits.com/api/2/streams/symbol/AAPL.json in 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))