really wild workaround for shiny bug

hadexversum · May 21, 2020 · ecdbd8a · ecdbd8a
1 parent 2e06f8c
commit ecdbd8a
Show file tree

Hide file tree

Showing 2 changed files with 60 additions and 1 deletion.
diff --git a/inst/HaDeX/server.R b/inst/HaDeX/server.R
@@ -130,6 +130,65 @@ server <- function(input, output, session) {
 
   ##
 
+  observe({
+
+    tryCatch({
+      if(input[["deut_concentration"]] < 0)
+        updateNumericInput(session,
+                           inputId = "deut_concentration",
+                           value = 0)
+    }, error = function(e){
+        updateNumericInput(session,
+                           inputId = "deut_concentration",
+                           value = 0)
+    })
+  })
+
+  observe({
+
+    tryCatch({
+      if(input[["deut_concentration"]] > 100)
+        updateNumericInput(session,
+                           inputId = "deut_concentration",
+                           value = 100)
+    },
+    error = function(e){
+        updateNumericInput(session,
+                           inputId = "deut_concentration",
+                           value = 100)
+    })
+
+  })
+
+  observe({
+
+    tryCatch({
+      if(input[["sequence_length"]] < max_range())
+        updateNumericInput(session,
+                           inputId = "sequence_length",
+                           value = max_range())
+    },
+    error = function(e){
+        updateNumericInput(session,
+                           inputId = "sequence_length",
+                           value = max_range())
+    })
+
+  })
+
+  observe({
+
+    tryCatch(
+    { if(input[["sequence_start_shift"]] < 0)
+        updateNumericInput(session,
+                           inputId = "sequence_start_shift",
+                           value = 1) },
+      error = function(e) {
+        message("You cannot shift it to minus values!")
+        updateNumericInput(session,
+                           inputId = "sequence_start_shift",
+                           value = 1) })
+  })
 
   ##
 

diff --git a/inst/HaDeX/ui.R b/inst/HaDeX/ui.R
@@ -46,7 +46,7 @@ ui <- fluidPage(theme = "HaDeX_theme.css",
                                                   inputId = "data_file",
                                                   label = "Choose file:",
                                                   multiple = FALSE,
-                                                  accept = c(".csv", ".xslx", ".xsl"),
+                                                  accept = c(".csv", ".xlsx", ".xls"),
                                                   placeholder = "No file selected")),
                                          column(4, 
                                                 h5("File status:"),