Disable gost by default

server.R

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

ui.R

@@ -86,6 +86,13 @@ ui <- fluidPage(
         ),
         wellPanel(
             h3("Gene set enrichment analysis"),
+            checkboxInput(
+                "enable_gost",
+                "Perform a gene set enrichment analysis on the filtered result \
+                 genes."
+            ),
+            conditionalPanel(
+                "input.enable_gost == true",
                 plotlyOutput(
                     "gost",
                     width = "100%",
@@ -94,3 +101,4 @@ ui <- fluidPage(
             )
         )
     )
+)