-
Notifications
You must be signed in to change notification settings - Fork 0
/
ui.R
52 lines (50 loc) · 1.07 KB
/
ui.R
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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
library("shiny")
ui = shinyUI(
fluidPage(
titlePanel("IRIS Output"),
tabsetPanel(
tabPanel("SL - SW",
h2("Sepal.Length & Sepal.Width"),
br(),
plotOutput("slswplot"),
br(),
downloadButton('slswdlpng', 'Download')
),
tabPanel("SL - PL",
h2("Sepal.Length & Petal.Length"),
br(),
plotOutput("slplplot"),
br(),
downloadButton('slpldlpng', 'Download')
),
tabPanel("SL - PW",
h2("Sepal.Length & Petal.Width"),
br(),
plotOutput("slpwplot"),
br(),
downloadButton('slpwdlpng', 'Download')
),
tabPanel("SW - PL",
h2("Sepal.Width & Petal.Length"),
br(),
plotOutput("swplplot"),
br(),
downloadButton('swpldlpng', 'Download')
),
tabPanel("SW - PW",
h2("Sepal.Width & Petal.Width"),
br(),
plotOutput("swpwplot"),
br(),
downloadButton('swpwdlpng', 'Download')
),
tabPanel("PL - PW",
h2("Petal.Length & Petal.Width"),
br(),
plotOutput("plpwplot") ,
br(),
downloadButton('plpwdlpng', 'Download')
)
)
)
)