NYT API Load to Data Frame

DATA-607, Spring 2019

query <- "Costa Rica"
begin_date <- "20190101"
end_date <- "20190331"
all_results <- TRUE

## 
  |                                                                       
  |                                                                 |   0%
  |                                                                       
  |========                                                         |  12%
  |                                                                       
  |================                                                 |  25%
  |                                                                       
  |========================                                         |  38%
  |                                                                       
  |================================                                 |  50%
  |                                                                       
  |=========================================                        |  62%
  |                                                                       
  |=================================================                |  75%
  |                                                                       
  |=========================================================        |  88%
  |                                                                       
  |=================================================================| 100%

nytdata$data %>% 
  select(headline.main,abstract,pub_date, web_url)