## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")

## ----setup--------------------------------------------------------------------
library(retraction)

## ----check-file, eval = FALSE-------------------------------------------------
# bib <- system.file("extdata", "example.bib", package = "retraction")
# result <- check_file(bib)
# result

## ----retracted, eval = FALSE--------------------------------------------------
# retracted(result)                 # just the flagged citations
# render_report(result, "report.html")

## ----check-dois, eval = FALSE-------------------------------------------------
# check_dois(c("10.1016/S0140-6736(97)11096-0", "10.1038/s41586-020-2649-2"))

## ----example-data-------------------------------------------------------------
retraction_example

## ----check-refs, eval = FALSE-------------------------------------------------
# check_refs(retraction_example)

## ----pmc, eval = FALSE--------------------------------------------------------
# res <- check_pmc(c("PMC5334499", "10.1371/journal.pone.0000217"))
# pmc_articles(res)   # open-access status per input
# retracted(res)      # retracted references found in those articles

## ----sources, eval = FALSE----------------------------------------------------
# list_backends()
# check_dois("10.1016/S0140-6736(97)11096-0",
#            sources = c("xera", "crossref", "openalex"))

## ----offline, eval = FALSE----------------------------------------------------
# retraction_sync()
# check_file("manuscript.Rmd", offline = TRUE)

## ----normalize----------------------------------------------------------------
normalize_doi("https://doi.org/10.1016/S0140-6736(97)11096-0")
normalize_pmid("PMID: 9500320")