Add initial plot controls to app

openpharma · Sep 13, 2023 · 1a6d8b5 · 1a6d8b5
1 parent 39450d6
commit 1a6d8b5
Showing 1 changed file with 13 additions and 2 deletions.
diff --git a/app/app.R b/app/app.R
@@ -1,4 +1,5 @@
 library(shiny)
+library(igraph)
 library(graphicalMCP)
 
 ui <- fluidPage(
@@ -7,7 +8,11 @@ ui <- fluidPage(
   titlePanel("Graphical Multiple Comparison Procedures"),
 
   fluidRow(
-    column(6, plotOutput("graphPlot"))
+    column(6, plotOutput("graphPlot")),
+    column(
+      6,
+      selectInput("layout", "Graph layout", c("grid", layout_nicely))
+    )
   ),
 
   hr(),
@@ -129,8 +134,14 @@ server <- function(input, output, session) {
       clean_hypotheses,
       clean_transitions
     )
+browser()
+    if (input$layout != "grid") {
+      layout <- as.function(input$layout)
+    } else {
+      layout <- input$layout
+    }
 
-    plot(graph)
+    plot(graph, layout = layout)
   })
 }