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)) })