R/boastApp.R

In EducationShinyAppTeam/boastUtils: BOAST Utilities

#' BOAST App
#'
#' Overrides the default shinyApp ui and server config
#' - ui includes template for accessibility fixes and consistent styling
#' - server config adds setup defaults
#'
#' @export
boastApp <- function(ui, server, config = NA) {
  
  # Conditionally load rLocker package depending on passed configuration
  logging <- ifelse(!is.na(config), config$log, TRUE)
  
  Sys.setenv("XAPI_LOGGING" = logging)
  
  if(logging) {
    library(rLocker)
  }
  
  # Setup app html template
  shinyUI <- htmlTemplate(
    system.file("templates", "template.html", package = "boastUtils"),
    document_ = TRUE,
    body = ui
  )

  shinyApp(shinyUI, .injectBoastConfig(server))
}