pca: disable plot button on start

loosolab · Mar 9, 2018 · bf06662 · bf06662
1 parent efcf416
commit bf06662
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/pca.R b/R/pca.R
@@ -120,6 +120,7 @@ pca <- function(input, output, session, data, types, levels = NULL, entryLabel =
       }
     }
   })
+
   # handle reactive sizes
   size <- shiny::reactive({
     width <- ifelse(shiny::is.reactive(width), width(), width)
@@ -171,9 +172,12 @@ pca <- function(input, output, session, data, types, levels = NULL, entryLabel =
     shiny::selectInput(session$ns("select"), label = "select data level", choices = unique(levels.r()))
   })
 
-  #update dimension inputs
+  # disable plot button on init
+  shinyjs::disable("plot")
+  # update dimension inputs
   shiny::observe({
     col.num <- length(shiny::req(columnSelect$selectedColumns()))
+
     if(col.num < 3 || nrow(shiny::isolate(data.r())) < 3 || is.na(input$dimA) || is.na(input$dimB)){
       shinyjs::disable("plot")