tests/sweetpotatobase/test_sp_genomemaps.R

context("sp genomemaps")

con <- ba_db()$sweetpotatobase

test_that("Genomemaps are present", {

  res <- ba_genomemaps(con = con)
  expect_that(nrow(res) == 1, is_true())

})
CIP-RIU/brapi documentation built on Oct. 17, 2019, 2 p.m.