inst/app_template/app.R

In shiny: Web Application Framework for R

ui <- fluidPage(
{{
# These blocks of code are processed with htmlTemplate()
if (isTRUE(module)) {
'  # ======== Modules ========
  # exampleModuleUI is defined in R/example-module.R
  wellPanel(
    h2("Modules example"),
    exampleModuleUI("examplemodule1", "Click counter #1"),
    exampleModuleUI("examplemodule2", "Click counter #2")
  ),
  # =========================
'
}
}}
  wellPanel(
    h2("Sorting example"),
    sliderInput("size", "Data size", min = 5, max = 20, value = 10),
{{
if (isTRUE(rdir)) {
  '    div("Lexically sorted sequence:"),'
} else {
  '    div("Sorted sequence:"),'
}
}}
    verbatimTextOutput("sequence")
  )
)

server <- function(input, output, session) {
{{
if (isTRUE(module)) {
'  # ======== Modules ========
  # exampleModuleServer is defined in R/example-module.R
  exampleModuleServer("examplemodule1")
  exampleModuleServer("examplemodule2")
  # =========================
'
}
}}
  data <- reactive({
{{
if (isTRUE(rdir)) {
'    # lexical_sort from R/example.R
    lexical_sort(seq_len(input$size))'
} else {
'    sort(seq_len(input$size))'
}
}}
  })
  output$sequence <- renderText({
    paste(data(), collapse = " ")
  })
}

shinyApp(ui, server)