tests/testthat/test-dataset_oak_vignette.R

In sdtm.oak: SDTM Data Transformation Engine

# dataset_oak_vignette ----
## Test 1: A 'knitr_kable' object is outputted when run outside pkgdown ----
test_that("dataset_oak_vignette Test 1: A 'knitr_kable' object is outputted when run outside pkgdown", {
  Sys.setenv(IN_PKGDOWN = "false") # nolint: undesirable_function_linter
  on.exit(Sys.setenv(IN_PKGDOWN = "")) # nolint: undesirable_function_linter

  dm <- dplyr::tribble(
    ~STUDYID, ~PATNUM, ~COUNTRY,
    "STUDY1", "1", "USA",
    "STUDY1", "2", "USA",
    "STUDY1", "3", "USA",
    "STUDY1", "4", "USA"
  )

  expect_s3_class(dataset_oak_vignette(dm), "knitr_kable")
  expect_s3_class(dataset_oak_vignette(dm, display_vars = exprs(STUDYID, PATNUM)), "knitr_kable")
})

## Test 2: A 'datatables' object is outputted when run inside pkgdown ----
test_that("dataset_oak_vignette Test 2: A 'shiny.tag.list' is outputted when run inside pkgdown", {
  Sys.setenv(IN_PKGDOWN = "true") # nolint: undesirable_function_linter
  on.exit(Sys.setenv(IN_PKGDOWN = "")) # nolint: undesirable_function_linter

  dm <- dplyr::tribble(
    ~STUDYID, ~PATNUM, ~COUNTRY,
    "STUDY1", "1", "USA",
    "STUDY1", "2", "USA",
    "STUDY1", "3", "USA",
    "STUDY1", "4", "USA"
  )


  expect_s3_class(dataset_oak_vignette(dm), "shiny.tag.list")
  expect_s3_class(dataset_oak_vignette(dm, display_vars = exprs(STUDYID, PATNUM)), "shiny.tag.list")
})

## Test 3: An error is outputted when calling variable not in dataset ----
test_that("dataset_oak_vignette Test 3: An error is outputted when calling variable not in dataset", {
  dm <- dplyr::tribble(
    ~STUDYID, ~PATNUM, ~COUNTRY,
    "STUDY1", "1", "USA",
    "STUDY1", "2", "USA",
    "STUDY1", "3", "USA",
    "STUDY1", "4", "USA"
  )

  expect_error(dataset_oak_vignette(dm, display_vars = exprs(AGE)))
})