factcheck

Fact check publishers or queries, create claims and more with the Google FactCheck Toolbox.

Installation

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

Setup

Get a free key from the Google Console.

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

• Fact Check
• Authentication
• Create claims
• Get created claims
• Delete created claims
• Edit claims

Example

library(factcheck)

# Claims on Trump in English that are maximum 10 days old
fact_check("Trump", lang = "en-US", days_old = 10)
#> # A tibble: 24 x 4
#>    text                              claimant   claimDate     claimReview  
#>    <chr>                             <chr>      <chr>         <list>       
#>  1 "\"Many, many [auto] plants are … Donald Tr… 2019-06-18T0… <named list …
#>  2 "Quotes Gene Hackman as saying t… Facebook … 2019-06-20T0… <named list …
#>  3 "\"When I became president, Pres… Donald Tr… 2019-06-20T0… <named list …
#>  4 "A meme claims that a photo of a… Viral ima… 2019-06-17T0… <named list …
#>  5 "Claims that Sarah Huckabee Sand… Viral Ima… 2019-06-17T0… <named list …
#>  6 "“We are, by the way, the number… Donald Tr… 2019-06-18T0… <named list …
#>  7 "“We are, by the way, the number… Donald Tr… 2019-06-18T0… <named list …
#>  8 "\"Well, I got 52% (of women vot… Donald Tr… 2019-06-16T0… <named list …
#>  9 Allegedly shows a rally held by … Viral Ima… 2019-05-27T0… <named list …
#> 10 "Quotes Queen Elizabeth II as sa… Facebook … 2019-06-07T0… <named list …
#> # … with 14 more rows

# Claims made on the New York Times
fact_check(publisher = "nytimes.com")
#> # A tibble: 50 x 4
#>    text                             claimant    claimDate     claimReview  
#>    <chr>                            <chr>       <chr>         <list>       
#>  1 The F.B.I. never took the D.N.C… Donald Tru… 2001-07-16T0… <named list …
#>  2 Nobody’s been tougher on Russia… Donald Tru… 2019-06-18T0… <named list …
#>  3 We enacted “the biggest tax cut… Donald Tru… 2019-06-18T0… <named list …
#>  4 We have never taken in 10 cents… Donald Tru… 2019-06-18T0… <named list …
#>  5 Since the election, we have cre… Donald Tru… 2019-06-18T0… <named list …
#>  6 “We are building the wall. We w… Donald Tru… 2019-06-18T0… <named list …
#>  7 "Climate scientists are \"drive… Rick Santo… 2018-11-25T0… <named list …
#>  8 The U.S. has 52,000 troops in G… Donald Tru… 2018-07-13T0… <named list …
#>  9 Mr. Trump said Mrs. Clinton has… Donald J. … 2016-10-10T0… <named list …
#> 10 Mr. Trump said “a lot of car co… Donald J. … 2017-01-12T0… <named list …
#> # … with 40 more rows