reset dataset name and description to empty values when wizard resets

components/board.upload/R/upload_module_computepgx.R

@@ -27,7 +27,8 @@ upload_module_computepgx_server <- function(
     upload_description,
     upload_datatype,
     upload_organism,
-    process_counter
+    process_counter,
+    reset_upload_text_input
     ) {
   shiny::moduleServer(
     id,
@@ -297,7 +298,13 @@ upload_module_computepgx_server <- function(
           computedPGX(NULL)
         }
       )
-
+
+      # reset dataset name and description
+      observeEvent(reset_upload_text_input(), {
+        shiny::updateTextInput(session, "selected_name", value = "")
+        shiny::updateTextAreaInput(session, "selected_description", value = "")
+      })
+
       # change upload_datatype to selected_datatype
 
       observeEvent(input$selected_datatype, {

components/board.upload/R/upload_server.R

@@ -29,6 +29,7 @@ UploadBoard <- function(id,
     process_counter <- reactiveVal(0)
     show_comparison_builder <- shiny::reactiveVal(FALSE)
     selected_contrast_input <- shiny::reactiveVal(FALSE)
+    reset_upload_text_input <- shiny::reactiveVal(0)
 
     output$navheader <- shiny::renderUI({
       fillRow(
@@ -527,7 +528,8 @@ UploadBoard <- function(id,
       upload_datatype = upload_datatype,
       upload_name = upload_name,
       upload_description = upload_description,
-      process_counter = process_counter
+      process_counter = process_counter,
+      reset_upload_text_input = reset_upload_text_input
     )
 
     uploaded_pgx <- shiny::reactive({
@@ -695,6 +697,9 @@ UploadBoard <- function(id,
           show_comparison_builder(FALSE)
           selected_contrast_input(FALSE)
         })
+
+        reset_upload_text_input(reset_upload_text_input()+1)
+
         wizardR::reset("upload_wizard")
 
         # skip upload trigger at first startup