tests/testthat/test_listMarts.R

library(biomaRt)

###############################
context('listMarts()')
###############################

test_that("listMarts retruns a data.frame", {
    
    ensembl_marts <- listMarts(host = "www.ensembl.org")
    expect_is(ensembl_marts, class = "data.frame")
    expect_identical(colnames(ensembl_marts),
                     c("biomart", "version"))
    
})

test_that("Error when archive = TRUE", {
    
    expect_error(listMarts(host = "www.ensembl.org", archive = TRUE),
                 regexp = "Use listEnsemblArchives")
       
})

test_that("Error when old URL is used", {
    
    expect_error(listMarts(host="www.biomart.org"), 
                 "Unexpected format to the list of available marts")
    
})

Try the biomaRt package in your browser

Any scripts or data that you put into this service are public.

biomaRt documentation built on Nov. 1, 2018, 3:34 a.m.