feat: add refrence lines + filter unwanted data

Author: vedhav

inst/poc_osprey.R

@@ -7,8 +7,12 @@ data <- within(teal_data(), {
   library(osprey)
 
   ADSL <- osprey::rADSL |>
-    mutate(x_val = as.integer(TRTEDTM - TRTSDTM))
-  ADRS <- osprey::rADRS
+    mutate(x_val = as.integer(TRTEDTM - TRTSDTM)) |>
+    arrange(x_val) |>
+    filter(!is.na(x_val))
+  ADRS <- osprey::rADRS |>
+    filter(ADY >= 0, USUBJID %in% ADSL$USUBJID)
+  reference_lines <- data.frame(x = c(50, 250), xend = c(50, 250), y = min(ADSL$USUBJID), yend = max(ADSL$USUBJID))
 })
 
 join_keys(data) <- default_cdisc_join_keys[c("ADSL", "ADRS")]
@@ -28,6 +32,20 @@ plotly_specs <- list(
       size = 10,
       color = "#329133"
     )
+  ),
+  list(
+    "plotly::add_segments",
+    data = quote(reference_lines),
+    x = ~x,
+    xend = ~xend,
+    y = ~y,
+    yend = ~yend,
+    line = list(
+      color = "#CA0E40",
+      width = 2,
+      dash = "dash"
+    ),
+    showlegend = FALSE
   )
 )
 
@@ -37,7 +55,7 @@ app <- init(
     teal_slice(
       "ADSL",
       "AGE",
-      selected = c(20, 23)
+      selected = c(24, 25)
     ),
     teal_slice(
       "ADRS",