tests/testthat/test-plotMeasurementValueAsConcept.R

In MeasurementDiagnostics: Diagnostics for Lists of Codes Based on Measurements

test_that("plotMeasurementValueAsConcept works", {
  cdm <- testMockCdm()
  cdm <- copyCdm(cdm)

  # Summarise measurement use ----
  result <- summariseMeasurementUse(cdm = cdm,
                                    byYear = TRUE,
                                    codes = list("test_codelist" = c(3001467L, 45875977L)))
  # Table types
  expect_no_error(x <- plotMeasurementValueAsConcept(result))
  expect_true(ggplot2::is_ggplot(x))

  # Summarise measurement use ----
  result <- summariseMeasurementUse(cdm = cdm,
                                    byConcept = FALSE,
                                    codes = list("test_codelist" = c(3001467L, 45875977L)))
  # Table types
  expect_no_error(x <- plotMeasurementValueAsConcept(result))
  expect_true(ggplot2::is_ggplot(x))

  dropCreatedTables(cdm = cdm)
})