Nothing
ui = fluidPage(theme = add_theme(getShinyOption('theme')),
add_css(),
sidebarLayout(
sidebarPanel(width = 3,
sliderInput("shape1",
label = HTML("Shape Parameter (α)"),
min = .5,
max = 10,
step = .5,
value = 2,
animate = animationOptions(interval = 400)),
sliderInput("shape2",
label = HTML("Shape Parameter (β)"),
min = .5,
max = 10,
step = .5,
value = .5,
animate = animationOptions(interval = 400)),
sliderInput("scale.beta",
label = "Scale Parameter (d)",
min = 1,
max = 20,
step = 1,
value = 1),
sliderInput("loc.beta",
label = "Location Parameter (c)",
min = 0,
max = 10,
step = .5,
value = 0)),
mainPanel(width = 9,
tabsetPanel(type = "pills",
tabPanel("Distribution Function",
metricsgraphicsOutput(height = "550px", "betaC")),
tabPanel("Density",
metricsgraphicsOutput(height = "550px", "betaP")),
tabPanel("Survival",
metricsgraphicsOutput(height = "550px", "betaR")),
tabPanel("Hazard",
metricsgraphicsOutput(height = "550px", "betah")),
tabPanel("Cumulative Hazard",
metricsgraphicsOutput(height = "550px", "betaH")),
tabPanel("Quantile",
metricsgraphicsOutput(height = "550px", "betaQ"))))))
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.