Week9–Read From NY Times API

Assignment:-
The New York Times web site provides a rich set of APIs, as described here:
http://developer.nytimes.com/docs
You’ll need to start by signing up for an API key.
Your task is to choose one of the New York Times APIs, construct an interface in R to read in the JSON data, and transform it to an R dataframe.

library(tidyr)
library(knitr)
library(rjson)
library(jsonlite)

## 
## Attaching package: 'jsonlite'

## The following objects are masked from 'package:rjson':
## 
##     fromJSON, toJSON

library(httr)
# I am using the books API for this assignment

books <- GET("https://api.nytimes.com/svc/books/v3/lists/names.json?api-key=93e0643f49d348ccb4961e538be4f9c3")

books <- rawToChar(books$content)
books

## [1] "{\"status\":\"OK\",\"copyright\":\"Copyright (c) 2018 The New York Times Company.  All Rights Reserved.\",\"num_results\":55,\"results\":[{\"list_name\":\"Combined Print and E-Book Fiction\",\"display_name\":\"Combined Print & E-Book Fiction\",\"list_name_encoded\":\"combined-print-and-e-book-fiction\",\"oldest_published_date\":\"2011-02-13\",\"newest_published_date\":\"2018-04-08\",\"updated\":\"WEEKLY\"},{\"list_name\":\"Combined Print and E-Book Nonfiction\",\"display_name\":\"Combined Print & E-Book Nonfiction\",\"list_name_encoded\":\"combined-print-and-e-book-nonfiction\",\"oldest_published_date\":\"2011-02-13\",\"newest_published_date\":\"2018-04-08\",\"updated\":\"WEEKLY\"},{\"list_name\":\"Hardcover Fiction\",\"display_name\":\"Hardcover Fiction\",\"list_name_encoded\":\"hardcover-fiction\",\"oldest_published_date\":\"2008-06-08\",\"newest_published_date\":\"2018-04-08\",\"updated\":\"WEEKLY\"},{\"list_name\":\"Hardcover Nonfiction\",\"display_name\":\"Hardcover Nonfiction\",\"list_name_encoded\":\"hardcover-nonfiction\",\"oldest_published_date\":\"2008-06-08\",\"newest_published_date\":\"2018-04-08\",\"updated\":\"WEEKLY\"},{\"list_name\":\"Trade Fiction Paperback\",\"display_name\":\"Paperback Trade Fiction\",\"list_name_encoded\":\"trade-fiction-paperback\",\"oldest_published_date\":\"2008-06-08\",\"newest_published_date\":\"2018-04-08\",\"updated\":\"WEEKLY\"},{\"list_name\":\"Mass Market Paperback\",\"display_name\":\"Paperback Mass-Market Fiction\",\"list_name_encoded\":\"mass-market-paperback\",\"oldest_published_date\":\"2008-06-08\",\"newest_published_date\":\"2017-01-29\",\"updated\":\"WEEKLY\"},{\"list_name\":\"Paperback Nonfiction\",\"display_name\":\"Paperback Nonfiction\",\"list_name_encoded\":\"paperback-nonfiction\",\"oldest_published_date\":\"2008-06-08\",\"newest_published_date\":\"2018-04-08\",\"updated\":\"WEEKLY\"},{\"list_name\":\"E-Book Fiction\",\"display_name\":\"E-Book Fiction\",\"list_name_encoded\":\"e-book-fiction\",\"oldest_published_date\":\"2011-02-13\",\"newest_published_date\":\"2017-01-29\",\"updated\":\"WEEKLY\"},{\"list_name\":\"E-Book Nonfiction\",\"display_name\":\"E-Book Nonfiction\",\"list_name_encoded\":\"e-book-nonfiction\",\"oldest_published_date\":\"2011-02-13\",\"newest_published_date\":\"2017-01-29\",\"updated\":\"WEEKLY\"},{\"list_name\":\"Hardcover Advice\",\"display_name\":\"Hardcover Advice & Misc.\",\"list_name_encoded\":\"hardcover-advice\",\"oldest_published_date\":\"2008-06-08\",\"newest_published_date\":\"2013-04-21\",\"updated\":\"WEEKLY\"},{\"list_name\":\"Paperback Advice\",\"display_name\":\"Paperback Advice & Misc.\",\"list_name_encoded\":\"paperback-advice\",\"oldest_published_date\":\"2008-06-08\",\"newest_published_date\":\"2013-04-21\",\"updated\":\"WEEKLY\"},{\"list_name\":\"Advice How-To and Miscellaneous\",\"display_name\":\"Advice, How-To & Miscellaneous\",\"list_name_encoded\":\"advice-how-to-and-miscellaneous\",\"oldest_published_date\":\"2013-04-28\",\"newest_published_date\":\"2018-04-08\",\"updated\":\"WEEKLY\"},{\"list_name\":\"Chapter Books\",\"display_name\":\"Children\\u2019s Chapter Books\",\"list_name_encoded\":\"chapter-books\",\"oldest_published_date\":\"2008-06-08\",\"newest_published_date\":\"2012-12-09\",\"updated\":\"WEEKLY\"},{\"list_name\":\"Childrens Middle Grade\",\"display_name\":\"Children\\u2019s Middle Grade\",\"list_name_encoded\":\"childrens-middle-grade\",\"oldest_published_date\":\"2012-12-16\",\"newest_published_date\":\"2015-08-23\",\"updated\":\"WEEKLY\"},{\"list_name\":\"Childrens Middle Grade E-Book\",\"display_name\":\"Children\\u2019s Middle Grade E-Book\",\"list_name_encoded\":\"childrens-middle-grade-e-book\",\"oldest_published_date\":\"2015-08-30\",\"newest_published_date\":\"2017-01-29\",\"updated\":\"WEEKLY\"},{\"list_name\":\"Childrens Middle Grade Hardcover\",\"display_name\":\"Children\\u2019s Middle Grade Hardcover\",\"list_name_encoded\":\"childrens-middle-grade-hardcover\",\"oldest_published_date\":\"2015-08-30\",\"newest_published_date\":\"2018-04-08\",\"updated\":\"WEEKLY\"},{\"list_name\":\"Childrens Middle Grade Paperback\",\"display_name\":\"Children\\u2019s Middle Grade Paperback\",\"list_name_encoded\":\"childrens-middle-grade-paperback\",\"oldest_published_date\":\"2015-08-30\",\"newest_published_date\":\"2017-01-29\",\"updated\":\"WEEKLY\"},{\"list_name\":\"Paperback Books\",\"display_name\":\"Children\\u2019s Paperback Books\",\"list_name_encoded\":\"paperback-books\",\"oldest_published_date\":\"2008-06-08\",\"newest_published_date\":\"2012-12-09\",\"updated\":\"WEEKLY\"},{\"list_name\":\"Picture Books\",\"display_name\":\"Children\\u2019s Picture Books\",\"list_name_encoded\":\"picture-books\",\"oldest_published_date\":\"2008-06-08\",\"newest_published_date\":\"2018-04-08\",\"updated\":\"WEEKLY\"},{\"list_name\":\"Series Books\",\"display_name\":\"Children\\u2019s Series\",\"list_name_encoded\":\"series-books\",\"oldest_published_date\":\"2008-06-08\",\"newest_published_date\":\"2018-04-08\",\"updated\":\"WEEKLY\"},{\"list_name\":\"Young Adult\",\"display_name\":\"Young Adult\",\"list_name_encoded\":\"young-adult\",\"oldest_published_date\":\"2012-12-16\",\"newest_published_date\":\"2015-08-23\",\"updated\":\"WEEKLY\"},{\"list_name\":\"Young Adult E-Book\",\"display_name\":\"Young Adult E-Book\",\"list_name_encoded\":\"young-adult-e-book\",\"oldest_published_date\":\"2015-08-30\",\"newest_published_date\":\"2017-01-29\",\"updated\":\"WEEKLY\"},{\"list_name\":\"Young Adult Hardcover\",\"display_name\":\"Young Adult Hardcover\",\"list_name_encoded\":\"young-adult-hardcover\",\"oldest_published_date\":\"2015-08-30\",\"newest_published_date\":\"2018-04-08\",\"updated\":\"WEEKLY\"},{\"list_name\":\"Young Adult Paperback\",\"display_name\":\"Young Adult Paperback\",\"list_name_encoded\":\"young-adult-paperback\",\"oldest_published_date\":\"2015-08-30\",\"newest_published_date\":\"2017-01-29\",\"updated\":\"WEEKLY\"},{\"list_name\":\"Hardcover Graphic Books\",\"display_name\":\"Hardcover Graphic Books\",\"list_name_encoded\":\"hardcover-graphic-books\",\"oldest_published_date\":\"2009-03-15\",\"newest_published_date\":\"2017-01-29\",\"updated\":\"WEEKLY\"},{\"list_name\":\"Paperback Graphic Books\",\"display_name\":\"Paperback Graphic Books\",\"list_name_encoded\":\"paperback-graphic-books\",\"oldest_published_date\":\"2009-03-15\",\"newest_published_date\":\"2017-01-29\",\"updated\":\"WEEKLY\"},{\"list_name\":\"Manga\",\"display_name\":\"Manga\",\"list_name_encoded\":\"manga\",\"oldest_published_date\":\"2009-03-15\",\"newest_published_date\":\"2017-01-29\",\"updated\":\"WEEKLY\"},{\"list_name\":\"Combined Print Fiction\",\"display_name\":\"Combined Hardcover & Paperback Fiction\",\"list_name_encoded\":\"combined-print-fiction\",\"oldest_published_date\":\"2011-02-13\",\"newest_published_date\":\"2013-05-12\",\"updated\":\"WEEKLY\"},{\"list_name\":\"Combined Print Nonfiction\",\"display_name\":\"Combined Hardcover & Paperback Nonfiction\",\"list_name_encoded\":\"combined-print-nonfiction\",\"oldest_published_date\":\"2011-02-13\",\"newest_published_date\":\"2013-05-12\",\"updated\":\"WEEKLY\"},{\"list_name\":\"Animals\",\"display_name\":\"Animals\",\"list_name_encoded\":\"animals\",\"oldest_published_date\":\"2014-09-07\",\"newest_published_date\":\"2017-01-15\",\"updated\":\"MONTHLY\"},{\"list_name\":\"Audio Fiction\",\"display_name\":\"Audio Fiction\",\"list_name_encoded\":\"audio-fiction\",\"oldest_published_date\":\"2018-03-11\",\"newest_published_date\":\"2018-03-11\",\"updated\":\"MONTHLY\"},{\"list_name\":\"Audio Nonfiction\",\"display_name\":\"Audio Nonfiction\",\"list_name_encoded\":\"audio-nonfiction\",\"oldest_published_date\":\"2018-03-11\",\"newest_published_date\":\"2018-03-11\",\"updated\":\"MONTHLY\"},{\"list_name\":\"Business Books\",\"display_name\":\"Business\",\"list_name_encoded\":\"business-books\",\"oldest_published_date\":\"2013-11-03\",\"newest_published_date\":\"2018-03-11\",\"updated\":\"MONTHLY\"},{\"list_name\":\"Celebrities\",\"display_name\":\"Celebrities\",\"list_name_encoded\":\"celebrities\",\"oldest_published_date\":\"2014-09-07\",\"newest_published_date\":\"2017-01-15\",\"updated\":\"MONTHLY\"},{\"list_name\":\"Crime and Punishment\",\"display_name\":\"Crime and Punishment\",\"list_name_encoded\":\"crime-and-punishment\",\"oldest_published_date\":\"2014-10-12\",\"newest_published_date\":\"2017-01-15\",\"updated\":\"MONTHLY\"},{\"list_name\":\"Culture\",\"display_name\":\"Culture\",\"list_name_encoded\":\"culture\",\"oldest_published_date\":\"2014-10-12\",\"newest_published_date\":\"2017-01-15\",\"updated\":\"MONTHLY\"},{\"list_name\":\"Education\",\"display_name\":\"Education\",\"list_name_encoded\":\"education\",\"oldest_published_date\":\"2014-10-12\",\"newest_published_date\":\"2017-01-15\",\"updated\":\"MONTHLY\"},{\"list_name\":\"Espionage\",\"display_name\":\"Espionage\",\"list_name_encoded\":\"espionage\",\"oldest_published_date\":\"2014-12-14\",\"newest_published_date\":\"2017-01-15\",\"updated\":\"MONTHLY\"},{\"list_name\":\"Expeditions Disasters and Adventures\",\"display_name\":\"Expeditions\",\"list_name_encoded\":\"expeditions-disasters-and-adventures\",\"oldest_published_date\":\"2014-12-14\",\"newest_published_date\":\"2017-01-15\",\"updated\":\"MONTHLY\"},{\"list_name\":\"Fashion Manners and Customs\",\"display_name\":\"Fashion, Manners and Customs\",\"list_name_encoded\":\"fashion-manners-and-customs\",\"oldest_published_date\":\"2014-10-12\",\"newest_published_date\":\"2017-01-15\",\"updated\":\"MONTHLY\"},{\"list_name\":\"Food and Fitness\",\"display_name\":\"Food and Diet\",\"list_name_encoded\":\"food-and-fitness\",\"oldest_published_date\":\"2013-09-01\",\"newest_published_date\":\"2017-01-15\",\"updated\":\"MONTHLY\"},{\"list_name\":\"Games and Activities\",\"display_name\":\"Games and Activities\",\"list_name_encoded\":\"games-and-activities\",\"oldest_published_date\":\"2014-10-12\",\"newest_published_date\":\"2017-01-15\",\"updated\":\"MONTHLY\"},{\"list_name\":\"Hardcover Business Books\",\"display_name\":\"Hardcover Business Books\",\"list_name_encoded\":\"hardcover-business-books\",\"oldest_published_date\":\"2011-07-03\",\"newest_published_date\":\"2013-10-13\",\"updated\":\"MONTHLY\"},{\"list_name\":\"Health\",\"display_name\":\"Health\",\"list_name_encoded\":\"health\",\"oldest_published_date\":\"2014-10-12\",\"newest_published_date\":\"2017-01-15\",\"updated\":\"MONTHLY\"},{\"list_name\":\"Humor\",\"display_name\":\"Humor\",\"list_name_encoded\":\"humor\",\"oldest_published_date\":\"2014-09-07\",\"newest_published_date\":\"2017-01-15\",\"updated\":\"MONTHLY\"},{\"list_name\":\"Indigenous Americans\",\"display_name\":\"Indigenous Americans\",\"list_name_encoded\":\"indigenous-americans\",\"oldest_published_date\":\"2014-12-14\",\"newest_published_date\":\"2016-01-10\",\"updated\":\"MONTHLY\"},{\"list_name\":\"Relationships\",\"display_name\":\"Love and Relationships\",\"list_name_encoded\":\"relationships\",\"oldest_published_date\":\"2014-09-07\",\"newest_published_date\":\"2017-01-15\",\"updated\":\"MONTHLY\"},{\"list_name\":\"Paperback Business Books\",\"display_name\":\"Paperback Business Books\",\"list_name_encoded\":\"paperback-business-books\",\"oldest_published_date\":\"2011-07-03\",\"newest_published_date\":\"2013-10-13\",\"updated\":\"MONTHLY\"},{\"list_name\":\"Family\",\"display_name\":\"Parenthood and Family\",\"list_name_encoded\":\"family\",\"oldest_published_date\":\"2014-09-07\",\"newest_published_date\":\"2017-01-15\",\"updated\":\"MONTHLY\"},{\"list_name\":\"Hardcover Political Books\",\"display_name\":\"Politics and American History\",\"list_name_encoded\":\"hardcover-political-books\",\"oldest_published_date\":\"2011-07-03\",\"newest_published_date\":\"2017-01-15\",\"updated\":\"MONTHLY\"},{\"list_name\":\"Race and Civil Rights\",\"display_name\":\"Race and Civil Rights\",\"list_name_encoded\":\"race-and-civil-rights\",\"oldest_published_date\":\"2014-12-14\",\"newest_published_date\":\"2017-01-15\",\"updated\":\"MONTHLY\"},{\"list_name\":\"Religion Spirituality and Faith\",\"display_name\":\"Religion, Spirituality and Faith\",\"list_name_encoded\":\"religion-spirituality-and-faith\",\"oldest_published_date\":\"2014-09-07\",\"newest_published_date\":\"2017-01-15\",\"updated\":\"MONTHLY\"},{\"list_name\":\"Science\",\"display_name\":\"Science\",\"list_name_encoded\":\"science\",\"oldest_published_date\":\"2013-04-14\",\"newest_published_date\":\"2018-03-11\",\"updated\":\"MONTHLY\"},{\"list_name\":\"Sports\",\"display_name\":\"Sports and Fitness\",\"list_name_encoded\":\"sports\",\"oldest_published_date\":\"2014-03-02\",\"newest_published_date\":\"2018-03-11\",\"updated\":\"MONTHLY\"},{\"list_name\":\"Travel\",\"display_name\":\"Travel\",\"list_name_encoded\":\"travel\",\"oldest_published_date\":\"2014-09-07\",\"newest_published_date\":\"2017-01-15\",\"updated\":\"MONTHLY\"}]}"

books_df <- fromJSON(books) %>% data.frame() #Creating Dataframe
head(books_df)

##   status
## 1     OK
## 2     OK
## 3     OK
## 4     OK
## 5     OK
## 6     OK
##                                                              copyright
## 1 Copyright (c) 2018 The New York Times Company.  All Rights Reserved.
## 2 Copyright (c) 2018 The New York Times Company.  All Rights Reserved.
## 3 Copyright (c) 2018 The New York Times Company.  All Rights Reserved.
## 4 Copyright (c) 2018 The New York Times Company.  All Rights Reserved.
## 5 Copyright (c) 2018 The New York Times Company.  All Rights Reserved.
## 6 Copyright (c) 2018 The New York Times Company.  All Rights Reserved.
##   num_results                    results.list_name
## 1          55    Combined Print and E-Book Fiction
## 2          55 Combined Print and E-Book Nonfiction
## 3          55                    Hardcover Fiction
## 4          55                 Hardcover Nonfiction
## 5          55              Trade Fiction Paperback
## 6          55                Mass Market Paperback
##                 results.display_name            results.list_name_encoded
## 1    Combined Print & E-Book Fiction    combined-print-and-e-book-fiction
## 2 Combined Print & E-Book Nonfiction combined-print-and-e-book-nonfiction
## 3                  Hardcover Fiction                    hardcover-fiction
## 4               Hardcover Nonfiction                 hardcover-nonfiction
## 5            Paperback Trade Fiction              trade-fiction-paperback
## 6      Paperback Mass-Market Fiction                mass-market-paperback
##   results.oldest_published_date results.newest_published_date
## 1                    2011-02-13                    2018-04-08
## 2                    2011-02-13                    2018-04-08
## 3                    2008-06-08                    2018-04-08
## 4                    2008-06-08                    2018-04-08
## 5                    2008-06-08                    2018-04-08
## 6                    2008-06-08                    2017-01-29
##   results.updated
## 1          WEEKLY
## 2          WEEKLY
## 3          WEEKLY
## 4          WEEKLY
## 5          WEEKLY
## 6          WEEKLY

#This Dataframe has API return status as well so i will filter that out

FilterData <- books_df[c(4:9)]

kable(FilterData)