ui = fluidPage(theme = add_theme(getShinyOption('theme')),
add_css(),
inputPanel(
selectInput('dist1', 'Distro 1', choices = c('Normal'), selected = 'Normal'),
selectInput('dist2', 'Distro 2', choices = c('Normal'), selected = 'Normal')),
fluidRow(
column(width = 2,
sliderInput('normal1.1',
label = HTML('Mean - μ<sub>1</sub>'),
min = 4,
max = 30,
step = 1,
value = 12),
sliderInput('normal1.2',
label = HTML('Std Dev - σ<sub>1</sub>'),
min = 1,
max = 10,
step = .5,
value = 4 )),
column(width = 2,
sliderInput('normal2.1',
label = HTML('<red>Mean - μ<sub>2</sub></red>'),
min = 3,
max = 30,
step = 1,
value = 20),
sliderInput('normal2.2',
label = HTML('<red>Std Dev - σ<sub>2</sub></red>'),
min = 1,
max = 10,
step = .5,
value = 5 )),
column(width = 8, plotOutput('cross', height = '550px'))))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.