Wrap RDS download in an id, to hide it.

ICB-DCM · Jun 5, 2024 · cf3e057 · cf3e057
1 parent ef489b5
commit cf3e057
Showing 1 changed file with 7 additions and 4 deletions.
diff --git a/program/shinyApp/R/data_selection/ui.R b/program/shinyApp/R/data_selection/ui.R
@@ -158,10 +158,13 @@ data_selection_main_panel <- mainPanel(
            ))
   ),
   hr(style = "border-top: 1px solid #858585;"),
-  downloadButton(
-    outputId = "SaveInputAsList",
-    label = "Save file input to upload later"
-  ) %>% helper(type = "markdown", content = "DataSelection_compilation_help"),
+  div(
+    id = "SaveInputAsRDS",
+    downloadButton(
+      outputId = "SaveInputAsList",
+      label = "Save file input to upload later"
+    ) %>% helper(type = "markdown", content = "DataSelection_compilation_help")
+  ),
   htmlOutput(outputId = "debug", container = pre),
   br(), br(), br(),
   hr(style = "border-top: 1px solid #858585;"),