index.Rmd

<!-- badges go here -->
[![Travis build status](https://travis-ci.org/news-r/accunews.svg?branch=master)](https://travis-ci.org/news-r/accunews) [![AppVeyor build status](https://ci.appveyor.com/api/projects/status/github/news-r/accunews?branch=master&svg=true)](https://ci.appveyor.com/project/news-r/accunews) [![Say Thanks!](https://img.shields.io/badge/Say%20Thanks-!-1EAEDB.svg)](https://saythanks.io/to/JohnCoene)

```{r setup, include = FALSE}
knitr::opts_chunk$set(
  warning = FALSE,
  collapse = TRUE,
  comment = "#>"
)

library(htmltools)
```

```{r, echo=FALSE}
br()
br()

div(
  class = "row",
  div(
    class = "col-md-4",
    img(
      src = "logo.png",
      class = "img-responsive responsive-img"
    )
  ),
  div(
    class = "col-md-8",
    p(
      "Access local and world news."
    ),
    p(
      tags$a(
        tags$i(class = "fa fa-github"),
        class = "btn btn-primary",
        href = "https://github.com/news-r/accunews",
        style = "margin-bottom: 5px;",
        "Repository"
      ),
      tags$a(
        tags$i(class = "fa fa-code"),
        class = "btn btn-default",
        href = "reference/index.html",
        style = "margin-bottom: 5px;",
        "Reference"
      )
    )
  )
)
```

## Installation

You can install accunews with `remotes` from Github, see [changes](news/index.html).

```r
# install.packages("remotes")
remotes::install_github("news-r/accunews") # github
```

## Setup

Get a free key from the [accunewsapp.com](https://www.accunewsapp.com/) website.

```r
accunews_key("xxXXxxXx")
```

Note that you can specify the `ACCUNEWS_API_KEY` key as an environment variable in your `.Renviron` for convenience.

## Examples

```{r example}
library(accunews)

# get business news sources
(src <- acc_world_sources(type = "business", pages = 2))
```

Plot with [echarts4r](https://echarts4r.john-coene.com).

```{r}
library(echarts4r.suite)

src %>% 
  e_charts(lon) %>% 
  em_map("USA") %>%
  e_geo("USA") %>% 
  e_scatter(
    lat,
    bind = name,
    symbol_size = 10,
    symbol = ea_icons("signals"),
    legend = FALSE,
    coord_system = "geo"
  ) %>%
  e_tooltip() %>%  
  e_color(
    "#247BA0",
    "#f9f7f1"
  )
```

You can also look for local news.

```{r}
library(accunews)

# get articles local (to somewhere)
acc_local_articles(27.964157, -82.452606, pages = 2)
```