wire in unipartite network

microbiomeDB · Dec 3, 2023 · eb143d8 · eb143d8
1 parent 5e82f09
commit eb143d8
Show file tree

Hide file tree

Showing 2 changed files with 24 additions and 1 deletion.
diff --git a/R/server.R b/R/server.R
@@ -193,6 +193,29 @@ server <- function(input, output, session) {
     return(edgeList)
   })
 
+  output$correlationNetwork <- renderUI({
+    if (is.null(data1$matrix)) {
+      return(NULL)
+    } else {
+      if (is.null(data2$matrix)) {
+        unipartiteNetworkOutput("unipartiteNetwork")
+      } else {
+        bipartiteNetworkOutput("bipartiteNetwork")
+      }
+    }
+  })
+
+  output$unipartiteNetwork <- renderUnipartiteNetwork({
+    edgeList <- req(filteredEdgeList())
+
+    if (is.null(edgeList)) {
+      return(NULL)
+    }
+
+    network <- unipartiteNetwork(edgeList, width = '100%', height = '400px')
+    return(network)
+  })
+
   output$bipartiteNetwork <- renderBipartiteNetwork({
     edgeList <- req(filteredEdgeList())
 

diff --git a/R/ui.R b/R/ui.R
@@ -49,7 +49,7 @@ ui <- shiny::fluidPage(
            tabsetPanel(
              type = "tabs",
              tabPanel("Network",
-                bipartiteNetworkOutput("bipartiteNetwork"), # need to add node labels and legend here
+                uiOutput("correlationNetwork")
              ),
              tabPanel("Table",
                DT::DTOutput("correlationMatrix")