inst/examples/word-list/ui.R

In gadenbuie/epoxy: String Interpolation for Documents, Reports and Apps

library(shiny)
library(epoxy)

page <-
  if (!requireNamespace("bslib", quietly = TRUE)) {
    bslib::page_fluid
  } else {
    fluidPage
  }

page(
  div(
    class = "row",
    style = "margin: 1em auto; max-width: 800px;",
    div(
      class = "col-sm-6",
      selectInput("number", "Number of words", choices = 1:10)
    ),
    div(
      class = "col-sm-6 mt-xs-5",
      ui_epoxy_html(
        .id = "word_list",
        tags$h3("Here {{ verb }} your {{ n_words }}"),
        tags$ul("{{li.word the_words}}")
      )
    ),
    tags$link(rel = "stylesheet", href = "animation.css"),
    tags$script(src = "extra.js")
  )
)