inst/shinysaurus/home/home.R

In rpodcast/shinylearning: Illustrate the evolution of a Shiny application from prototype to finished product

home_ui <- function() {
  tagList(
    fluidRow(
      column(
        width = 12,
        shiny::includeMarkdown("home/introduction.md")
      )
    )
  )
}

home_server <- function(input, output, session) {
  # customize to your needs
}

home_demo <- function() {
  ui <- fluidPage(home_ui())
  server <- function(input, output, session) {
    home_server(input, output, session)
  }

  shinyApp(ui_server)
}

home_theme <- function() {
  bslib::bs_theme(bootswatch = "superhero")
}