delete plotOutput(outputId = "adjPartPlot") as this output is not gen…

…erated
FATelarico · Mar 22, 2022 · e3fd86f · e3fd86f
1 parent 7173d27
commit e3fd86f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/app.R b/app.R
@@ -714,7 +714,7 @@ ui <- fluidPage(
                      ## 6.4 Plot output original matrix ####
                      plotOutput(outputId = "adjPlot"),
                      ## 6.5 Plot output partitioned matrix ####
-                     plotOutput(outputId = "adjPartPlot"),
+                     # plotOutput(outputId = "adjPartPlot"), #This output is not generated
                      ),
 
             tabPanel(title = "Network Plot",
@@ -2194,4 +2194,4 @@ server <- function(input, output, session) {
 }
 
 # Run the application 
-shinyApp(ui = ui, server = server)
+shinyApp(ui = ui, server = server)