DATA 607 WEEK 9

Went to the NY Times API Developer website and registered to access the API collection. Once registered, created new App in order to get the API keys for the book list API.

https://developer.nytimes.com/get-started

Did not clean up title column and left alone in case that is the actual title names in the NY Times book list. Some titles had number signs in front as well as other symbols.

library(jsonlite)
library(httr)
library(tidyr)
library(knitr)

r<- GET("https://api.nytimes.com/svc/books/v3/lists/best-sellers/history.json.json?api-key=8gkKGb1DOwEMoYb4TGlpZeUeORinGyam")
r$status_code

## [1] 200

data<- fromJSON(r$url)
df<-data.frame(data)
colnames(df)

##  [1] "status"                   "copyright"               
##  [3] "num_results"              "results.title"           
##  [5] "results.description"      "results.contributor"     
##  [7] "results.author"           "results.contributor_note"
##  [9] "results.price"            "results.age_group"       
## [11] "results.publisher"        "results.isbns"           
## [13] "results.ranks_history"    "results.reviews"

df2<- df[, c("results.title", "results.author","results.publisher")]
colnames(df2)=c("Title","Author","Publisher")  
kable(df2)