UI-side functions for creating dynamic lcarBox() and lcarsSweep().
lcarsBoxOutput(outputId)
lcarsSweepOutput(outputId)renderLcars() for the corresponding server-side
function.
## Only run examples in interactive R sessions
if (interactive()) {
  ui <- lcarsPage(
    lcarsBoxOutput("box"),
    lcarsSweepOutput("sweep")
  )
  server <- function(input, output) {
    output$box <- renderLcarsBox({
      lcarsBox()
    })
    output$sweep <- renderLcarsSweep({
      lcarsSweep()
    })
  }
  shinyApp(ui, server)
}