tests/testthat/test-utilities.R

In CohortCharacteristics: Summarise and Visualise Characteristics of Patients in the OMOP CDM

test_that("getUniqueCombinationsSr", {
  x <- dplyr::tibble(
    cohort_name_reference = c("b", "y", "k"),
    cohort_name_comparator = c("a", "x", "z")
  ) |>
    visOmopResults::uniteGroup(
      cols = c("cohort_name_reference", "cohort_name_comparator")
    )

  # expect no change
  expect_identical(x, getUniqueCombinationsSr(x))

  # expect pairs drop
  x <- dplyr::tibble(
    cohort_name_reference = c("b", "y", "a"),
    cohort_name_comparator = c("a", "x", "b")
  ) |>
    visOmopResults::uniteGroup(
      cols = c("cohort_name_reference", "cohort_name_comparator")
    )
  expect_identical(
    x |>
      visOmopResults::filterGroup(.data$cohort_name_reference != "a"),
    getUniqueCombinationsSr(x)
  )
})