context("ts germplasm breedingmethods details")
#testthat::skip_on_cran()
con <- ba_db()$testserver
test_that(" ts germplasm breedingmethods details are present", {
expect_error({
res <- ba_germplasm_breedingmethods_details(con = con)
})
res <- ba_germplasm_breedingmethods_details(con = con, breedingMethodDbId = "bm1")
expect_true(nrow(res) == 1)
expect_true(length(attr(res, "metadata")) == 3)
})
test_that("ts germplasm breedingmethods details output formats work", {
res <- ba_germplasm_breedingmethods_details(con = con, breedingMethodDbId = "bm1", rclass = "data.frame")
expect_that("data.frame" %in% class(res), is_true())
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.