url <- "https://api.nytimes.com/svc/movies/v2/reviews/picks.json"
search_string <- "godfather"
key <- "V3q6edKvlzzQHotsgCC8V77LPZBMcxeY"
final_url <- paste0(url,"?&api-key=",key)
review <- fromJSON(final_url)
review_DF <- data.frame(review)
review_DF