feat: added modal_spinner to export data button

CCICB · Nov 27, 2023 · 44488eb · 44488eb
1 parent 4eea4db
commit 44488eb
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/mod_external_tools.R b/R/mod_external_tools.R
@@ -218,13 +218,16 @@ mod_external_tools_server <- function(id, maf_data_pool){
     #Download
     output$out_downloadbttn_exported_data <- downloadHandler(filename = filename, function(file){
       validate(need(!is.null(maf()), message = "Please select a dataset ... "))
+      shinybusy::show_modal_spinner(text = "Importing your data ...", session = session)
       conversion_function = external_tools_get_property_by_tool_name(tool_name = tool_name(), property_to_retrieve = "maf_conversion_function")
       requires_gene_name = external_tools_get_property_by_tool_name(tool_name = tool_name(), property_to_retrieve = "requires_gene_selection")
 
       if(requires_gene_name)
         conversion_function(maf_dataset_wrapper(), file, selected_gene())
       else
         conversion_function(maf_dataset_wrapper(), file)
+
+      shinybusy::remove_modal_spinner(session = session)
     })
 
   })