tests/sweetpotatobase/test_sp_studies_table.R

In CIP-RIU/brapi: Client to Access Breeding Databases Using BrAPI

context("sp studies_table")

# Brapi test server does not return correct header row, so using sweetpotatobase for the moment!
con <- ba_db()$sweetpotato

test_that("Studies_table are present", {

  expect_true({
    nrow(ba_studies_table(con = con, studyDbId = "1180", format = "csv")) == 390
  })

})


# test_that("Studies_table are presented as json", {
#
#   res <- ba_studies_table(con = con, studyDbId = "148", rclass = "json")
#   expect_that("json" %in%  class(res), is_true())
#
# })
#
# test_that("Studies_table are presented as data.frame", {
#
#   res <- ba_studies_table(con = con, studyDbId = "148", rclass = "data.frame")
#   expect_that("data.frame" %in%  class(res), is_true())
#
# })
#
#
# test_that("Studies_table are requested as csv", {
#
#   res <- ba_studies_table(con = con, studyDbId = "148", format = "csv")
#   expect_that(nrow(res) >= 8, is_true())
#
# })
#
# test_that("Studies_table are requested as tsv", {
#
#   res <- ba_studies_table(con = con, studyDbId = "148", format = "tsv")
#   expect_that(nrow(res) >= 8, is_true())
#
# })