如何从 News River API 中提取数据到 R

How to pull data from News River API into R

尝试将数据从 NewsRiver API 提取到 R。特别想将提供的 json 转换为数据框以供进一步分析。我还希望能够输入我自己的搜索词和我想从中搜索的域作为变量。

https://newsriver.io/

library(httr)
library(jsonlite)

set_config(config(ssl_verifypeer = 0L))

search_1 <- "Amazon"
search_2 <- "World Domination"
website <- "bloomberg.com"


url <- sprintf('https://api.newsriver.io/v2/search?query=text%%3A%s%%20OR%%20text%%3A%s%%20OR%%20website.domainName%%3A%s%%20OR%%20language%%3AEN&sortBy=_score&sortOrder=DESC&limit=100', search_1, search_2, website)
api_key <- "mykey"

news <- GET(url, add_headers(Authorization = paste(api_key, sep = "")))
news_txt <- content(news, as = "text")
news_china_df <- fromJSON(news_txt)