inst/scripts/sampleMetadata.R

In waldronlab/MicrobiomeBenchmarkData: Datasets for benchmarking in microbiome research

## Script used to generate the sampleMetadata object exported by
## MicrobiomeBenchmarkData package

fname <- system.file(
    "extdata/metadata.csv",
    package = "MicrobiomeBenchmarkData"
)
metadata_csv <- utils::read.csv(fname)
url <- metadata_csv[metadata_csv$Title == "sampleMetadata", ]$SourceUrl
sampleMetadata <- readr::read_tsv(url)
usethis::use_data(sampleMetadata, overwrite = TRUE)