## ----style, echo=FALSE--------------------------------------------------------
knitr::opts_chunk$set(error = FALSE, warning = FALSE, message = FALSE)

## -----------------------------------------------------------------------------
library(MethylSeqData)
brain <- RizzardiHickeyBrain()
brain

## -----------------------------------------------------------------------------
out <- listDatasets()

## ----echo = FALSE-------------------------------------------------------------
out <- as.data.frame(out)
out$Taxonomy <- c(`10090` = "Mouse", `9606` = "Human")[as.character(out$Taxonomy)]
out$Call <- sprintf("`%s`", out$Call)
knitr::kable(out)