(lineplot) Add spec for reference values.

Boehringer-Ingelheim · Feb 17, 2025 · dd96d2e · dd96d2e
1 parent 945f913
commit dd96d2e
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 2 deletions.
diff --git a/inst/validation/specs.R b/inst/validation/specs.R
@@ -96,6 +96,9 @@ lineplot_module = list(
     ",
     bookmark = "
     The application shall support bookmarking. Clicks and brush are explicitely excluded.
+    ",
+    reference_values = "
+    The chart optionally displays reference values as horizontal lines. Those are provided as separate columns of the visit-dependent dataset.
     "
 ),
 
@@ -475,4 +478,4 @@ specs[["roc"]] <- roc_module
 specs
 
 
-# nolint end
+# nolint end
diff --git a/tests/testthat/test-line_plot.R b/tests/testthat/test-line_plot.R
@@ -20,7 +20,7 @@ test_that("lineplot_chart produces a ggplot", {
   expect_true("ggplot" %in% class(p))
 })
 
-test_that("lineplot_chart renders reference lines", {
+test_that("lineplot_chart renders reference lines" |> vdoc[["add_spec"]](c(specs$lineplot_module$reference_values)), {
   df <- data.frame(row.names = seq(1))
 
   df[[CNT$VIS]] <- c("vis_1")