-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathui.R
28 lines (23 loc) · 930 Bytes
/
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
shinyUI(
pageWithSidebar(
headerPanel("pageWithSidebar shiny webapp"),
sidebarPanel(
selectInput("Distribution", "Please select a distribution type",
choices = c("Normal", "Exponential")),
sliderInput("sampleSize", "please select sample size: ",
min = 100, max= 5000, value= 1000, step= 100),
conditionalPanel(condition = "input.Distribution == 'Normal'",
textInput("Mean", "Please select the mean", 10),
textInput("sd", "Please select standard Diviation",1)
),
conditionalPanel(condition = "input.Distribution == 'Exponential'",
textInput("Lambda", "Please select Exponenetial Lambda:", 1)
),
selectInput("color", "Please select the color of the histogram",
choices = c("blue", "green", "red", "black")
)
),
mainPanel(plotOutput("myPlot")
)
)
)