shiny::shinyUI(
shiny::fluidPage(
tags$script(
"
Shiny.addCustomMessageHandler('js',
function(code) {
eval(code);
});
"
),
shiny::tags$h2("Telephones by region"),
shiny::fluidRow(
shiny::column(
width = 4,
shiny::wellPanel(
shiny::selectInput(
"region", "Region:",
choices=colnames(datasets::WorldPhones)
),
shiny::helpText("Data from AT&T (1961) The World's Telephones."),
textInput('alertWindowT', 'Alert')
)
),
shiny::column(
width = 7,
shiny::plotOutput("phonePlot")
)
)
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.