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

## -----------------------------------------------------------------------------
license_reuse("https://creativecommons.org/licenses/by/4.0/")[c("category", "rdp_category", "facilitates_reuse")]
license_reuse("https://creativecommons.org/licenses/by-nc-nd/4.0/")[c("category", "rdp_category", "facilitates_reuse")]

## -----------------------------------------------------------------------------
classify_access(access_level = "closedAccess",
                urls = "https://www.ncbi.nlm.nih.gov/gap/?term=phs000424")[c("access", "controlled_access", "sensitive")]

## -----------------------------------------------------------------------------
identifier_hygiene("RRID:MGI:5577054")$issues
identifier_hygiene("https://doi.org/10.5281/zenodo.8347772")$hygiene_ok

## ----eval = FALSE-------------------------------------------------------------
# a <- assess_fair("https://doi.org/10.5281/zenodo.8347772")
# fair_tlc(a)
# #>   dimension                             indicator   met
# #> 1 Traceable                         T1 Provenance  TRUE
# #> 2 Traceable                        T2 Attribution  TRUE
# #> 3  Licensed L1 Documented & minimally restrictive  TRUE
# #> 4  Licensed           L2 Flowthrough transparency  TRUE
# #> 5 Connected                      C1 Connectedness  TRUE

## -----------------------------------------------------------------------------
head(fair_principles(), 4)