tests/testserver/test_ts_studies_observations.R

context("ts studies_observations")

con <- ba_db()$sweetpotatobase

test_that("Studies_observations are present", {

  res <- ba_studies_observations(con = con, studyDbId = "148", pageSize = 10)
  expect_true(nrow(res) == 10)

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