fix on-screen error about NULLs

microbiomeDB · Nov 30, 2023 · 0c69159 · 0c69159
1 parent 5ddf460
commit 0c69159
Showing 1 changed file with 12 additions and 1 deletion.
diff --git a/R/server.R b/R/server.R
@@ -119,6 +119,10 @@ server <- function(input, output, session) {
   filteredEdgeList <- reactive({
     edgeList <- req(edgeList())
 
+    if (is.null(edgeList)) {
+      return(NULL)
+    }
+
     edgeList <- subset(edgeList, abs(edgeList$value) >= input$correlationFilter)
     edgeList <- subset(edgeList, edgeList$p_value <= input$pValueFilter)
 
@@ -127,11 +131,18 @@ server <- function(input, output, session) {
 
   output$correlationMatrix <- DT::renderDT({
     edgeList <- req(filteredEdgeList())
+    return(edgeList)
   })
 
   output$bipartiteNetwork <- renderBipartiteNetwork({
     edgeList <- req(filteredEdgeList())
-    bipartiteNetwork(edgeList, width = '100%', height = '400px')
+
+    if (is.null(edgeList)) {
+      return(NULL)
+    }
+
+    network <- bipartiteNetwork(edgeList, width = '100%', height = '400px')
+    return(network)
   })
 
 }