tests/metrumStyle/fluidPage/ui.R

In metrumresearchgroup/shinymetrum:

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")
      )
    )
  )
)