feat: initial prototype of wizard reset

bigomics · Mar 19, 2024 · aca5eaa · aca5eaa
1 parent 8da38bd
commit aca5eaa
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/components/board.upload/R/upload_server.R b/components/board.upload/R/upload_server.R
@@ -631,9 +631,14 @@ UploadBoard <- function(id,
       return(pgx)
     })
 
+    # reset wizard when computation is finished
+    observeEvent(input$reset_wizard, {
+      browser()
+      wizardR::reset("upload_wizard")
+    })
+
     # wizard lock/unlock logic
 
-
     # lock/unlock wizard for samples.csv
     observeEvent(
       list(uploaded$counts.csv, checked_counts, input$upload_wizard), {

diff --git a/components/board.upload/R/upload_ui.R b/components/board.upload/R/upload_ui.R
@@ -16,6 +16,7 @@ UploadUI <- function(id) {
 
   samples_ui <- wizardR::wizard_step(
     step_title = "Samples",
+    shiny::actionButton(ns("reset_wizard"), "Reset", icon = icon("refresh")),
     upload_table_preview_samples_ui(
       ns("samples_preview")
     )