From 7e90d38380031483dea1a064da4bf9f840cbf1db Mon Sep 17 00:00:00 2001
From: Andreas Gammelgaard Damsbo <andreas@gdamsbo.dk>
Date: Mon, 20 Jan 2025 10:40:15 +0100
Subject: [PATCH] Baseline plot now updates on changed input data

---
 inst/apps/data_analysis_modules/server.R | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/inst/apps/data_analysis_modules/server.R b/inst/apps/data_analysis_modules/server.R
index 2c6fe6b..43a9797 100644
--- a/inst/apps/data_analysis_modules/server.R
+++ b/inst/apps/data_analysis_modules/server.R
@@ -218,7 +218,10 @@ server <- function(input, output, session) {
     id = "modal_column",
     data_r = reactive(rv$data)
   )
-  shiny::observeEvent(data_modal_r(), rv$data <- data_modal_r())
+  shiny::observeEvent(
+    data_modal_r(), {
+    rv$data <- data_modal_r()
+    })
 
   #########  Show result
 
@@ -227,7 +230,7 @@ server <- function(input, output, session) {
     # data <- rv$data
     toastui::datagrid(
       # data = rv$data # ,
-      data = data_filter()
+      data = data_filter(),
       # bordered = TRUE,
       # compact = TRUE,
       # striped = TRUE
@@ -467,6 +470,8 @@ server <- function(input, output, session) {
     list(
       shiny::reactive(rv$list$data),
       shiny::reactive(rv$data),
+      shiny::reactive(rv$data_original),
+      data_filter(),
       input$strat_var,
       input$include_vars,
       input$add_p