-
Notifications
You must be signed in to change notification settings - Fork 0
/
ui.R
34 lines (30 loc) · 920 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
29
30
31
32
33
34
library(shiny)
library(ggplot2)
shinyUI(fluidPage(
titlePanel("Simple Distributions Graphs Example App"),
sidebarLayout(
sidebarPanel(
radioButtons("dist", "Distribution type:",
c("Normal" = "norm",
"Uniform" = "unif",
"Log-normal" = "lnorm",
"Exponential" = "exp",
"Cauchy" = "cauchy")),
br(),
sliderInput("n",
"Number of observations:",
value = 500,
min = 100,
max = 10000)
),
# Show a tabset that includes a plot, summary, and table view
# of the generated distribution
mainPanel(
tabsetPanel(type = "tabs",
tabPanel("Plot", plotOutput("plot")),
tabPanel("Summary", verbatimTextOutput("summary")),
tabPanel("Table", tableOutput("table"))
)
)
)
))