## ----include = FALSE---------------------------------------------------------- knitr::opts_chunk$set( collapse = TRUE, comment = "#>" ) ## ----echo=FALSE, message=FALSE------------------------------------------------ ## This code is to import the description of the datasets ## Only the table should be displayed on the vignette library(MicrobiomeBenchmarkData) fname <- system.file( 'extdata/datasets.tsv', package = 'MicrobiomeBenchmarkData' ) datasets <- read.table( fname, header = TRUE, sep = '\t', check.names = FALSE ) data('sampleMetadata', package = 'MicrobiomeBenchmarkData') PMID <- dplyr::distinct( sampleMetadata[, c('dataset', 'pmid')] ) datasets <- dplyr::left_join(datasets, PMID, by = c('Dataset' = 'dataset')) datasets <- dplyr::rename(datasets, PMID = pmid) ## ----echo=FALSE--------------------------------------------------------------- ## Show table knitr::kable(datasets, filter = 'top') ## ----echo=FALSE, include=FALSE------------------------------------------------ sessionInfo()