From fffc090b4c2ecba0beea1ea85a4708482981ad79 Mon Sep 17 00:00:00 2001
From: Tom Elliott <tomelliottnz@gmail.com>
Date: Mon, 6 Jan 2025 15:37:12 +1300
Subject: [PATCH] update input when tab changes

---
 panels/C1_Visualize/2_visualize-panel-server.R | 9 +++++++++
 panels/C1_Visualize/infoWindow.R               | 8 ++++++++
 2 files changed, 17 insertions(+)

diff --git a/panels/C1_Visualize/2_visualize-panel-server.R b/panels/C1_Visualize/2_visualize-panel-server.R
index c4e59c78..8e802860 100644
--- a/panels/C1_Visualize/2_visualize-panel-server.R
+++ b/panels/C1_Visualize/2_visualize-panel-server.R
@@ -7469,5 +7469,14 @@ observeEvent(input$global.round.pct, {
   graphical.par$round_percent <- input$global.round.pct
 })
 
+observeEvent(input$plot_selector, {
+  if (!is.null(input$plot_selector) && input$plot_selector == "Summary") {
+    updateNumericInput(session,
+      "global.sig.level",
+      value = graphical.par$signif
+    )
+  }
+})
+
 
 source("panels/C1_Visualize/vit.R", local = T)
diff --git a/panels/C1_Visualize/infoWindow.R b/panels/C1_Visualize/infoWindow.R
index aa44f353..a5d18578 100644
--- a/panels/C1_Visualize/infoWindow.R
+++ b/panels/C1_Visualize/infoWindow.R
@@ -727,6 +727,14 @@ output$visualize.summary <- renderPrint({
   }
 })
 
+gloablSigLevel <- reactive(input$global.sig.level.inf)
+observeEvent(input$global.sig.level.inf, {
+  graphical.par$signif <- input$global.sig.level.inf
+  # updateNumericInput(session,
+  #   inputId = "global.sig.level",
+  #   value = graphical.par$signif
+  # )
+})
 
 # observeEvent(input$global.sig.level.inf, {
 #   graphical.par$signif <- input$global.sig.level.inf