if (FALSE) {
if (require(RMariaDB)) {
library(dplyr)
ucsc <- db_ucsc("hg38")
# fetch the `refGene` tbl
tbl(ucsc, "refGene")
# the `chromInfo` tbls have size information
tbl(ucsc, "chromInfo")
}
}
if (FALSE) {
if (require(RMariaDB)) {
library(dplyr)
# squirrel genome
ensembl <- db_ensembl("spermophilus_tridecemlineatus_core_67_2")
tbl(ensembl, "gene")
}
}
Run the code above in your browser using DataLab