Data 607 - Week 9 Assignment

library(httr)
library(jsonlite)
library(RCurl)

## Loading required package: bitops

library(DT)

 url <- "https://api.nytimes.com/svc/movies/v2/reviews/search.json"
  api.key <- "d54b8dd9d15c4dd5aa3664f59a167d0f"
  url <- paste0(url, '?api-key=', api.key)
  df <- jsonlite::fromJSON(url, flatten = TRUE)
  datatable(df$results)

nytimes_movies.df <- fromJSON("https://api.nytimes.com/svc/movies/v2/reviews/search.json?api_key=d54b8dd9d15c4dd5aa3664f59a167d0f") %>% 
    data.frame()

names(nytimes_movies.df)

##  [1] "status"                   "copyright"               
##  [3] "has_more"                 "num_results"             
##  [5] "results.display_title"    "results.mpaa_rating"     
##  [7] "results.critics_pick"     "results.byline"          
##  [9] "results.headline"         "results.summary_short"   
## [11] "results.publication_date" "results.opening_date"    
## [13] "results.date_updated"     "results.link"            
## [15] "results.multimedia"