tests/testthat/test-choices.R

In OmopViewer: Visualise OMOP Results using 'shiny' Applications

test_that("test choices", {
  # empty result
  res <- omopgenerics::emptySummarisedResult()
  resultList <- res |>
    panelDetailsFromResult() |>
    resultListFromPanelDetails()
  expect_no_error(x <- prepareResult(res, resultList))
  expected <- list()
  expect_equal(unname(x), expected)

  # check only settings
  res <- omopgenerics::emptySummarisedResult(settings = dplyr::tibble(
    result_id = c(1L, 2L),
    result_type = c("custom_result_1", "custom_result_2"),
    package_name = "OmopViewer",
    package_version = "1.0.0",
    param = c("TRUE", NA),
    x = c("0", "1")
  ))
  panelList <- list(my_result = list(result_id = c(1L, 2L)))
  expect_no_error(x <- getValues(res, panelList))
  expect_identical(x$my_result_cdm_name, character())
  expect_identical(x$my_result_variable_name, character())
  expect_identical(x$my_result_variable_level, character())
  expect_identical(x$my_result_estimate_name, character())
  expect_identical(x$my_result_param, "TRUE")
  expect_identical(x$my_result_x, c("0", "1"))

  # a set of summarised_results
  res <- omopgenerics::newSummarisedResult(
    x = dplyr::tibble(
      result_id = c(1L, 2L),
      cdm_name = c("cdm1", "cdm2"),
      group_name = "cohort_name",
      group_level = "cohort_1",
      strata_name = c("age &&& sex", "year"),
      strata_level = c("<40 &&& F", "2010"),
      variable_name = "number_subjects",
      variable_level = NA_character_,
      estimate_name = "count",
      estimate_type = "integer",
      estimate_value = "100",
      additional_name = c("overall", "time"),
      additional_level = c("overall", "1")
    ),
    settings = dplyr::tibble(
      result_id = c(1L, 2L),
      result_type = c("custom_result_1", "custom_result_2"),
      package_name = "OmopViewer",
      package_version = "1.0.0",
      param = c("TRUE", NA),
      x = c("0", "1")
    )
  )
  resultList <- list(
    custom_result_1 = list(result_id = 1L),
    custom_result_2 = list(result_id = 2L)
  )
  expect_no_error(x <- getValues(res, resultList))

  # present names
  expect_identical(
    sort(names(x)),
    sort(c("custom_result_1_cdm_name", "custom_result_1_cohort_name",
      "custom_result_1_age", "custom_result_1_sex",
      "custom_result_1_variable_name", "custom_result_1_variable_level",
      "custom_result_1_estimate_name", "custom_result_1_param",
      "custom_result_1_x", "custom_result_2_cdm_name",
      "custom_result_2_cohort_name", "custom_result_2_year",
      "custom_result_2_variable_name", "custom_result_2_variable_level",
      "custom_result_2_estimate_name", "custom_result_2_time",
      "custom_result_2_x"))
  )

  # custom_result_1
  expect_identical(x$custom_result_1_cdm_name, "cdm1")
  expect_identical(x$custom_result_1_cohort_name, "cohort_1")
  expect_identical(x$custom_result_1_age, "<40")
  expect_identical(x$custom_result_1_sex, "F")
  expect_identical(x$custom_result_1_variable_name, "number_subjects")
  expect_identical(x$custom_result_1_variable_level, character())
  expect_identical(x$custom_result_1_estimate_name, "count")
  expect_identical(x$custom_result_1_param, "TRUE")
  expect_identical(x$custom_result_1_x, "0")

  # custom_result_2
  expect_identical(x$custom_result_2_cdm_name, "cdm2")
  expect_identical(x$custom_result_2_cohort_name, "cohort_1")
  expect_identical(x$custom_result_2_year, "2010")
  expect_identical(x$custom_result_2_variable_name, "number_subjects")
  expect_identical(x$custom_result_2_variable_level, character())
  expect_identical(x$custom_result_2_estimate_name, "count")
  expect_identical(x$custom_result_2_time, "1")
  expect_identical(x$custom_result_2_x, "1")
})