context("Test: getFilters()")
equal_lists <- function(df1, df2) {
isTRUE(all.equal(df1, df2))
}
test_that("The getFilters() interface works properly..",{
skip_on_cran()
skip_on_travis()
marts <- getMarts()$mart
elsembl_mart <- which(stringr::str_match(marts, "ENSEMBL_MART_ENSEMBL") != "NA")
attrib <-
getFilters(mart = as.character(marts[elsembl_mart]),
dataset = "hsapiens_gene_ensembl",
mute_citation = TRUE)
expect_equal(attrib[1 , 1], "chromosome_name")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.