README.Rmd

---
output:
  github_document:
    html_preview: false
---

<!-- README.md is generated from README.Rmd. Please edit that file -->

```{r, include = FALSE}
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  fig.path = "man/figures/README-",
  out.width = "100%"
)
```

<!-- badges: start -->
[![Travis build status](https://travis-ci.org/news-r/factcheck.svg?branch=master)](https://travis-ci.org/news-r/factcheck)
<!-- badges: end -->

# factcheck

Fact check publishers or queries, create claims and more with the [Google FactCheck Toolbox](https://toolbox.google.com/factcheck).

## Installation

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

## Setup

Get a free key from the [Google Console](https://console.cloud.google.com).

```r
factcheck_key("xxXXxxXx")
```

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

The above key will work for the `fact_check` function, other function to create, update, or delete your claims will require OAuth 2.0 authentication using `fact_token`.

## ROADMAP

- [x] Fact Check
- [x] Authentication
- [ ] Create claims
- [ ] Get created claims
- [ ] Delete created claims
- [ ] Edit claims

## Example

```{r example}
library(factcheck)

# Claims on Trump in English that are maximum 10 days old
fact_check("Trump", lang = "en-US", days_old = 10)

# Claims made on the New York Times
fact_check(publisher = "nytimes.com")
```