Disable gost by default

2025-10-26 11:17:24 +01:00 · 2021-10-07 12:42:36 +02:00 · 2021-10-07 12:42:36 +02:00 · 686af3f44b
commit 686af3f44b
parent f002758fc8
2 changed files with 18 additions and 6 deletions
--- a/server.R
+++ b/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
+        }
    })
 }
--- a/ui.R
+++ b/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%",
@ -93,4 +100,5 @@ ui <- fluidPage(
                )
            )
        )
+    )
 )