Nothing
ui = navbarPage(title = 'Power Calculator',
collapsible = T,
position = 'fixed-top',
theme = add_theme(getShinyOption('theme')),
header = add_css(),
footer = add_logo(),
tabPanel('Normal-Normal',
sidebarLayout(
sidebarPanel(width = 3,
sliderInput('norm1.1',
label = HTML('Mean - μ<sub>1</sub>'),
min = 4,
max = 30,
step = 1,
value = 12),
sliderInput('norm1.2',
label = HTML('Std Dev - σ<sub>1</sub>'),
min = 1,
max = 10,
step = .5,
value = 4 ),
sliderInput('norm2.1',
label = HTML('<red>Mean - μ<sub>2</sub></red>'),
min = 3,
max = 30,
step = 1,
value = 20),
sliderInput('norm2.2',
label = HTML('<red>Std Dev - σ<sub>2</sub></red>'),
min = 1,
max = 10,
step = .5,
value = 5 )),
mainPanel(plotOutput('nor.nor', height = '625px'), width = 9))))
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.