index.Rmd

<!-- badges: start -->
[![Build Status](https://travis-ci.org/news-r/webhoser.svg?branch=master)](https://travis-ci.org/news-r/webhoser)
<!-- badges: end -->

```{r, include=FALSE}
library(htmltools)
```

```{r, echo=FALSE}
div(
  class = "row",
  div(
    class = "col-md-4",
    img(
      src = "logo.png",
      class = "img-responsive responsive-img"
    )
  ),
  div(
    class = "col-md-8",
    "R wrapper to the", 
    a(
      "webhose.io",
      href = "https://webhose.io/",
      target = "_blank"
    ), 
    "API."
  )
)

br()
```

## Install

```r
devtools::install_github("news-r/webhoser")
```

## Setup

1. Visit [webhose.io](https://webhose.io/)
2. Visit your [dashboard](https://webhose.io/dashboard).
3. Use the "Active API Key" at the bottom with `wh_token`.

## Examples

``` r
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
```