history/app.R

In fdrennan/test: What the Package Does (One Line, Title Case)

library(test)

devtools::load_all()
router <- make_router(
  route("/", test_home_page()),
  route("analysis_a", analysis_a_run(id = "analysis_a"))
)

ui <-
  function() {
    sass(
      sass_file("www/styles.scss"),
      output = "www/styles.css"
    )

    fluidPage(
      title = "BioMarin TEST",
      tags$script(
        HTML(
          'Shiny.addCustomMessageHandler("changetitle", function(x) {document.title=x});'
        )
      ),
      tags$head(includeCSS("www/styles.css")),
      headers(),
      fluidRow(
        navbar(),
        column(
          10,
          offset = 1,
          router$ui
        )
      )
    )
  }

server <- function(input, output, session) {
  router$server(input, output, session)
  callModule(analysis_a_run_server, "analysis_a")
  callModule(analysis_a_session_setup_server, "analysis_a_session_setup")
}

runApp(shinyApp(ui = ui, server = server))