tests/testthat/test-data.R

library(ctrialsgov)

test_that("sample data loads okay", {
  ctgov_load_sample()
  res <- ctgov_query(description_kw = "cancer")
  expect_equal(ncol(res), 30L)
})
presagia-analytics/ctrialsgov documentation built on March 25, 2024, 2:10 p.m.