1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
| library(shiny)
library(VennDiagram)
ui <- fluidPage(
titlePanel("Venn Diagram Maker"),
sidebarLayout(
sidebarPanel(
numericInput("A", "Set A:", value = 10, min = 0),
numericInput("B", "Set B:", value = 10, min = 0),
numericInput("C", "Intersection:", value = 5, min = 0)
),
mainPanel(plotOutput("vennPlot"))
)
)
server <- function(input, output) {
output$vennPlot <- renderPlot({
venn.plot <- draw.pairwise.venn(
area1 = input$A,
area2 = input$B,
cross.area = input$C,
category = c("Set A", "Set B"),
fill = c("red", "blue")
)
grid.draw(venn.plot)
})
}
shinyApp(ui = ui, server = server)
|