issue 2 fixed, now user can only select 1 input

visionRs · Jul 25, 2019 · 91ebd8a · 91ebd8a
1 parent e945788
commit 91ebd8a
Show file tree

Hide file tree

Showing 3 changed files with 24 additions and 1 deletion.
diff --git a/.DS_Store b/.DS_Store
diff --git a/app/server.R b/app/server.R
@@ -14,6 +14,19 @@
     }) 
 
 
+    ## observe the button being pressed
+    observeEvent(input$read_dt, {
+      if(input$read_dt==TRUE) {
+        shinyjs::enable(id = "file1")
+        shinyjs::disable(id = "tableName")
+
+      } else {
+        shinyjs::disable(id = "file1")
+        shinyjs::enable(id = "tableName")        
+      }
+
+    })
+
     #___3.2 SERVER : Reading Data from file--------------
 
     data <-  reactive({

diff --git a/app/ui.R b/app/ui.R
@@ -52,16 +52,26 @@ ui <- dashboardPage(
               div(class="input_box", 
                   box(status = "primary",width = "3",
                       h4("Select input params:"),
+
+                      switchInput(inputId = "read_dt", 
+                                  value = TRUE,
+                                  label = "Upload File",
+                                  size = "mini",
+                                  width = '100px'
+                                  ),
+
+
                       fileInput("file1", "Upload data file (csv/txt/tsv):",
                                 accept = c("text/csv",
                                            "text/comma-separated-values,text/plain",
                                            ".csv")
                       ),
-
                       selectInput(
                         inputId = "tableName", label = "Select R Env Data ",
                         selected = "None", multiple = FALSE,
                         choices = c(temp,"None")),
+
+
                       #__3.2 DropDowns for X and Y axis-------------
                       selectInput(inputId = "selectX", label = "Select X-axis variable:", choices = 'None',selected = "None"),
                       selectInput(inputId = "selectY", label = "Select Y-axis variable:", choices = 'None',selected = "None"),