library(httr)
library(jsonlite)
library(knitr)
library(tidyverse)
#api_key <- hidden
url <- paste("https://api.nytimes.com/svc/movies/v2/reviews/search.json", api_key, sep="")
my_results <- fromJSON(url)
names(my_results)
## [1] "status" "copyright" "has_more" "num_results" "results"
df <- data.frame(my_results$results)
df <- df %>%
select(display_title, mpaa_rating, opening_date, critics_pick)
kable(df)
| Tyler Perry’s Acrimony |
R |
2018-03-30 |
0 |
| Wilde Salomé |
R |
2017-04-01 |
1 |
| Salomé |
R |
NA |
1 |
| Personal Problems |
|
NA |
1 |
| Love After Love |
|
2018-03-30 |
1 |
| Outside In |
|
2018-04-03 |
1 |
| Gemini |
R |
2018-03-30 |
0 |
| The Gardener |
|
2018-03-30 |
0 |
| After Louie |
|
2018-03-30 |
0 |
| All I Wish |
|
2018-03-30 |
0 |
| The Last Movie Star |
R |
2018-03-30 |
0 |
| The China Hustle |
R |
2018-03-23 |
0 |
| Finding Your Feet |
PG-13 |
NA |
0 |
| Ready Player One |
PG-13 |
2018-03-29 |
0 |
| The Great Silence |
Not Rated |
1969-00-00 |
0 |
| Midnight Sun |
PG-13 |
2018-03-23 |
0 |
| Ismael’s Ghosts |
R |
2018-03-23 |
1 |
| Beauty and the Dogs |
|
NA |
1 |
| The Workshop |
|
NA |
1 |
| I Kill Giants |
Not Rated |
2018-03-23 |
1 |