revised server.R and ui.R

BIONF · May 5, 2019 · f6d63e3 · f6d63e3
1 parent 73673d8
commit f6d63e3
Show file tree

Hide file tree

Showing 3 changed files with 288 additions and 493 deletions.
diff --git a/inst/PhyloProfile/R/groupComparison.R b/inst/PhyloProfile/R/groupComparison.R
@@ -217,28 +217,25 @@ groupComparison <- function (
     ### List with possible features for the selected gene
     output$featureTypeSelect.ui <- renderUI({
         ns <- session$ns
-        doUpdate()
-        isolate({
-            if (is.null(featureDf())) {
-                selectInput(ns("featureTypeSelect"),
-                            "Feature type(s) of interest:",
-                            choices = "ALL",
-                            selected = "ALL",
-                            multiple = TRUE,
-                            selectize = FALSE)
-            } else {
-                featureDf <- str_split_fixed(
-                    as.character(featureDf()$Feature), "_", 2
-                )
-                featureList <- unique(featureDf[,1])
-                selectInput(ns("featureTypeSelect"),
-                            "Feature type(s) of interest:",
-                            choices = c("ALL", featureList),
-                            selected = "ALL",
-                            multiple = TRUE,
-                            selectize = FALSE)
-            }
-        })
+        if (is.null(featureDf())) {
+            selectInput(ns("featureTypeSelect"),
+                        "Feature type(s) of interest:",
+                        choices = "ALL",
+                        selected = "ALL",
+                        multiple = TRUE,
+                        selectize = FALSE)
+        } else {
+            featureDf <- str_split_fixed(
+                as.character(featureDf()$Feature), "_", 2
+            )
+            featureList <- unique(featureDf[,1])
+            selectInput(ns("featureTypeSelect"),
+                        "Feature type(s) of interest:",
+                        choices = c("ALL", featureList),
+                        selected = "ALL",
+                        multiple = TRUE,
+                        selectize = FALSE)
+        }
     })
 
     ### filter feature data based on selected type of features