Working with API

R Markdown

url <- 'https://api.nytimes.com/svc/books/v3/lists/current/hardcover-fiction.json'
api <- 'GUz2FMGJsWSqNi5ZC8ZGDAUkqoscMzAI'

bookurl <- paste(url,'?api-key=',api, sep = '')

booksrough <- fromJSON(bookurl, flatten = TRUE)
books <- data.frame(booksrough$results$books)
View(books)

hardcover_bestsellers <- books%>%
  select(1,11,12,8,3)
hardcover_bestsellers

##    rank                            title                 author     publisher
## 1     1                        THE WOMEN         Kristin Hannah  St. Martin's
## 2     2                      FOURTH WING         Rebecca Yarros     Red Tower
## 3     3                       IRON FLAME         Rebecca Yarros     Red Tower
## 4     4             EMPIRE OF THE DAMNED           Jay Kristoff  St. Martin’s
## 5     5            A FATE INKED IN BLOOD     Danielle L. Jensen       Del Rey
## 6     6 THE HEAVEN & EARTH GROCERY STORE          James McBride     Riverhead
## 7     7                       THE HUNTER            Tana French        Viking
## 8     8        HOUSE OF FLAME AND SHADOW          Sarah J. Maas    Bloomsbury
## 9     9                 THREE-INCH TEETH               C.J. Box        Putnam
## 10   10                   NEVER TOO LATE         Danielle Steel     Delacorte
## 11   11      REMARKABLY BRIGHT CREATURES          Shel Van Pelt          Ecco
## 12   12                   FIRST LIE WINS          Ashley Elston Pamela Dorman
## 13   13         STILL SEE YOU EVERYWHERE           Lisa Gardner Grand Central
## 14   14             LESSONS IN CHEMISTRY          Bonnie Garmus     Doubleday
## 15   15                     UNTIL AUGUST Gabriel García Márquez         Knopf
##    weeks_on_list
## 1              6
## 2             45
## 3             19
## 4              1
## 5              3
## 6             30
## 7              2
## 8              7
## 9              3
## 10             2
## 11            42
## 12            11
## 13             1
## 14            97
## 15             1