inst/apps/061-server-to-client-custom-messages/ui.R

In rstudio/shinycoreci: CI Testing for shiny

fluidPage(
  titlePanel("sendCustomMessage example"),

  fluidRow(
    sidebarPanel(
      sliderInput("controller", "Controller:",
        min = 1, max = 20, value = 15),
    ),
    mainPanel(
      div(
        tags$b("JSON message from server:"),
        pre(id = "custom-message")
      )

    ),

    # This makes web page load the JS file in the HTML head.
    # The call to singleton ensures it's only included once
    # in a page. It's not strictly necessary in this case, but
    # it's good practice.
    singleton(
      tags$head(tags$script(src = "message-handler.js"))
    )
  )
)