Disable download

app.R

@@ -81,7 +81,7 @@ ui <- dashboardPage(
             #menuItem("Habitats", tabName = "3", icon = icon("atlas")),
             #menuItem("Ingestion", tabName = "3", icon = icon("utensils")),
             selectInput("modelSelect", "Select MESO model", choices = c(""), selected = NULL, multiple = FALSE),
-            downloadButton("download", "", icon = icon("download")),
+            #downloadButton("download", "", icon = icon("download")),
             uiOutput("pressureList")
         )
       ),
@@ -231,7 +231,7 @@ server <- function(input, output, session) {
     lr = -0.95,
     nr = -0.99,
     ssgr = 0,
-    pressSD = 0.5
+    pressSD = 1.0
   )
 
   .selections <- reactiveValues(
@@ -422,8 +422,8 @@ server <- function(input, output, session) {
           sliderInput("l1M", "Medium Sensitivity/Med resistance", 0.5, 0.75, abs(.resistanceScores[3]), step = 0.01),
           sliderInput("l1H", "High Sensitivity/Low resistance", 0.75, 1.0, abs(.resistanceScores[4]), step = 0.01),
           sliderInput("l1VH", "Very High Sensitivity/No resistance", 0.9, 1.0, abs(.resistanceScores[5]), step = 0.01),
-          sliderInput("ssgr", "Steady state growth rate", -0.1, 0.1,.resistanceScores[6], step = 0.01),
-          sliderInput("l1PressSD", "Pressure Std Dev", 0.1, 1.0, .resistanceScores[7], step = 0.01)
+          sliderInput("ssgr", "Zero intercept", -0.1, 0.1,.resistanceScores[6], step = 0.01),
+          sliderInput("l1PressSD", "Std Dev", 0.1, 1.0, .resistanceScores[7], step = 0.01)
         )
       },
       title = "Layer 1 controls",
@@ -662,17 +662,17 @@ server <- function(input, output, session) {
   output$download <- downloadHandler(
     filename = paste0("MESO-", format(Sys.time(), "%m%d_%H%M"), ".zip"),
     content = function(file) {
-      showModal(
-        modalDialog(
-          fluidRow(
-            column(width = 12) %>% withSpinner(type = 5, proxy.height = "200px")
-          ), 
-          footer=div()
-        )
-      )
+      #showModal(
+      #  modalDialog(
+      #    fluidRow(
+      #      column(width = 12) %>% withSpinner(type = 5, proxy.height = "200px")
+      #    ), 
+      #    footer=div()
+      #  )
+      #)
       fName <- export(modelList[[.selections$model]])
       file.copy(fName, file)
-      removeModal()
+      #removeModal()
     },
     contentType = "application/zip"
   )