create_column: reset feedback

dreamRs · Apr 17, 2024 · 77f1634 · 77f1634
1 parent 1b4cbd7
commit 77f1634
Showing 1 changed file with 11 additions and 7 deletions.
diff --git a/R/create-column.R b/R/create-column.R
@@ -111,17 +111,21 @@ create_column_server <- function(id,
 
       ns <- session$ns
 
+      info_alert <- alert(
+        status = "info",
+        ph("question"),
+        "Choose a name for the column to be created or modified,",
+        "then enter an expression before clicking on the button above to validate or on ",
+        ph("trash"), "to delete it."
+      )
+
       rv <- reactiveValues(
         data = NULL,
-        feedback = alert(
-          status = "info",
-          ph("question"),
-          "Choose a name for the column to be created or modified,",
-          "then enter an expression before clicking on the button above to validate or on ",
-          ph("trash"), "to delete it."
-        )
+        feedback =info_alert
       )
 
+      observeEvent(input$hidden, rv$feedback <- info_alert)
+
       bindEvent(observe({
         data <- data_r()
         updateVirtualSelect(