ui = fluidPage(theme = add_theme(getShinyOption('theme')),
add_css(),
sidebarLayout(
sidebarPanel(width = 3,
hr(),
sliderInput("range.lev",
label = "Range",
min = -20,
max = 20,
value = c(-6,6)),
hr(),
sliderInput("mu.lev",
label = HTML("Mean (μ)"),
min = -3,
max = 3,
step = 0.5,
value = 0,
animate = T),
hr(),
sliderInput("sig.lev",
label = HTML("Std Dev (σ)"),
min = 1,
max = 10,
step = 0.5,
value = 1,
animate = T)),
mainPanel(width = 9,
tabsetPanel(type = 'pills',
tabPanel('Distribution Function',
metricsgraphicsOutput('levC', height = '550px')),
tabPanel('Density',
metricsgraphicsOutput('levP', height = '550px')),
tabPanel('Survival',
metricsgraphicsOutput('levR', height = '550px')),
tabPanel('Hazard',
metricsgraphicsOutput('levh', height = '550px')),
tabPanel('Cumulative Hazard',
metricsgraphicsOutput('levH', height = '550px')),
tabPanel('Quantile',
metricsgraphicsOutput('levQ', height = '550px'))))))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.