Disable gost by default

server.R

@@ -116,7 +116,11 @@ server <- function(input, output) {
     })
 
     output$gost <- renderPlotly({
-        result <- gost(results()[, gene], ordered_query = TRUE)
+        if (input$enable_gost) {
-        gostplot(result, capped = FALSE, interactive = TRUE)
+            result <- gost(results()[, gene], ordered_query = TRUE)
+            gostplot(result, capped = FALSE, interactive = TRUE)
+        } else {
+            NULL
+        }
     })
 }

ui.R

@@ -86,10 +86,18 @@ ui <- fluidPage(
         ),
         wellPanel(
             h3("Gene set enrichment analysis"),
-            plotlyOutput(
+            checkboxInput(
-                "gost",
+                "enable_gost",
-                width = "100%",
+                "Perform a gene set enrichment analysis on the filtered result \
-                height = "600px"
+                 genes."
+            ),
+            conditionalPanel(
+                "input.enable_gost == true",
+                plotlyOutput(
+                    "gost",
+                    width = "100%",
+                    height = "600px"
+                )
             )
         )
     )