mirror of
https://github.com/rstudio/shiny.git
synced 2026-02-17 10:02:32 -05:00
35 lines
796 B
R
35 lines
796 B
R
|
|
|
|
library(shiny)
|
|
|
|
shinyUI(
|
|
application(
|
|
|
|
headerPanel("Example 3: Distributions"),
|
|
|
|
sidebarPanel(
|
|
selectListInput("dist", "Distibution type:",
|
|
list(norm = "Normal",
|
|
unif = "Uniform",
|
|
lnorm = "Log-normal",
|
|
exp = "Exponential")),
|
|
|
|
numericInput("n",
|
|
label = "Number of observations:",
|
|
min = 0,
|
|
max = 10000,
|
|
value = 500),
|
|
|
|
checkboxInput("animate", "Animate")
|
|
),
|
|
|
|
mainPanel(
|
|
tabset(
|
|
tab("Plot", plotOutput("plot1")),
|
|
tab("Summary", verbatimTextOutput("summary1")),
|
|
tab("Table", tableOutput("table1"))
|
|
)
|
|
)
|
|
)
|
|
)
|