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

## -----------------------------------------------------------------------------
# library(rtransparency)
# 
# res <- rt_all_pmc("article.xml", remove_ns = TRUE)
# res[, c("is_coi_pred", "is_fund_pred", "is_open_data", "is_open_code")]

## -----------------------------------------------------------------------------
# res <- rt_all_pmc("article.xml", remove_ns = TRUE)
# links <- strsplit(res$open_data_links, " ; ")[[1]]
# # rfair::assess_fair(links)