library(jsonlite)
library(httr)
library(DT)## Warning: package 'DT' was built under R version 3.5.3url <- "https://api.nytimes.com/svc/books/v3/lists/best-sellers/history.json"
api_key <- "xbuqHAyVZEV7g5j8aBiOvrvOhvgEUtc8"
url <- paste0(url, '?api-key=', api_key)
df <- data.frame(jsonlite::fromJSON(url, flatten = TRUE))
summary(df)## status
## OK:20
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## copyright
## Copyright (c) 2019 The New York Times Company. All Rights Reserved.:20
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## num_results results.title results.description
## Min. :31969 Length:20 Length:20
## 1st Qu.:31969 Class :character Class :character
## Median :31969 Mode :character Mode :character
## Mean :31969
## 3rd Qu.:31969
## Max. :31969
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## results.contributor results.author results.contributor_note
## Length:20 Length:20 Length:20
## Class :character Class :character Class :character
## Mode :character Mode :character Mode :character
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## results.price results.age_group results.publisher
## Min. : 0.0 Length:20 Length:20
## 1st Qu.: 0.0 Class :character Class :character
## Median : 0.0 Mode :character Mode :character
## Mean : 1.7
## 3rd Qu.: 0.0
## Max. :23.0
##
##
##
##
##
##
##
##
##
##
##
##
##
##
## results.isbns.Length results.isbns.Class results.isbns.Mode
## 2 data.frame list
## 2 data.frame list
## 2 data.frame list
## 2 data.frame list
## 2 data.frame list
## 2 data.frame list
## 0 data.frame list
## 2 data.frame list
## 2 data.frame list
## 2 data.frame list
## 2 data.frame list
## 2 data.frame list
## 2 data.frame list
## 2 data.frame list
## 2 data.frame list
## 2 data.frame list
## 0 data.frame list
## 2 data.frame list
## 2 data.frame list
## 0 data.frame list
## results.ranks_history.Length results.ranks_history.Class results.ranks_history.Mode
## 11 data.frame list
## 11 data.frame list
## 11 data.frame list
## 11 data.frame list
## 11 data.frame list
## 0 data.frame list
## 0 data.frame list
## 0 data.frame list
## 0 data.frame list
## 0 data.frame list
## 0 data.frame list
## 11 data.frame list
## 0 data.frame list
## 11 data.frame list
## 11 data.frame list
## 0 data.frame list
## 0 data.frame list
## 0 data.frame list
## 11 data.frame list
## 0 data.frame list
## results.reviews.Length results.reviews.Class results.reviews.Mode
## 4 data.frame list
## 4 data.frame list
## 4 data.frame list
## 4 data.frame list
## 4 data.frame list
## 4 data.frame list
## 4 data.frame list
## 4 data.frame list
## 4 data.frame list
## 4 data.frame list
## 4 data.frame list
## 4 data.frame list
## 4 data.frame list
## 4 data.frame list
## 4 data.frame list
## 4 data.frame list
## 4 data.frame list
## 4 data.frame list
## 4 data.frame list
## 4 data.frame list datatable(df)