options(stringsAsFactors = FALSE)
library(jsonlite)
library(httr)
library(DT)

  url <- "https://api.nytimes.com/svc/books/v3/lists/best-sellers/history.json"
  
  api.key <- "cbfc2690b5514ba1ab5da94786ea1944"
  url <- paste0(url, '?api-key=', api.key)
  df <- jsonlite::fromJSON(url, flatten = FALSE)
  datatable(df$results)