## ------------------------------------------------------------------------
library(metagenomeFeatures)
demoMgDb <- get_demoMgDb()
demoMgDb

## ------------------------------------------------------------------------
# taxa_keytypes(demoMgDb)

## ------------------------------------------------------------------------
# taxa_columns(demoMgDb)

## ------------------------------------------------------------------------
# head(taxa_keys(demoMgDb, keytype = c("Kingdom")))

## ------------------------------------------------------------------------
# mgDb_select(demoMgDb, type = "taxa",
#                 keys = c("Vibrio", "Salmonella"),
#                 keytype = "Genus")

## ------------------------------------------------------------------------
# mgDb_select(demoMgDb, type = "seq",
#                 keys = c("Vibrio", "Salmonella"),
#                 keytype = "Genus")

## ------------------------------------------------------------------------
# mgDb_select(demoMgDb, type = "all",
#                 keys = c("Vibrio", "Salmonella"),
#                 keytype = "Genus")

## ------------------------------------------------------------------------
sessionInfo()