wh_token.wh_token("xXX-x0X0xX0X-00X") # setup token
# webhoser object
wh_news(q = '"R programming language" is_first:true language:english site_type:news') -> news
# basic
# collect results
wh_news(q = '"R programming language"') %>% # get news
  wh_collect() -> basic
  
# flatten results
wh_news(q = '"R programming language" OR rstats') %>% # get news
  wh_collect(TRUE) -> flat  # flatten results
# get three pages on the rstats
# format dates
wh_news(q = '"R programming language" OR rstats') %>% 
  wh_paginate(3) %>% 
  wh_collect() %>% 
  dplyr::mutate(published = wh_date(published)) -> rstats