R/runapp.R

In ramnathv/satin: A highly opinionated framework for building shiny dashboards

#' Run a ShinyDashboard App created using ShinyBones
#'
#' @export
#' @param app_dir The directory containing the app.
#' @param config The configuration specifying the layout.
#' @param data_global The global data object that will be passed on to all
#'   page modules.
sb_create_app <- function(app_dir = ".",
                          config = yaml::read_yaml(file.path(app_dir, '_site.yml')),
                          data_global = list()){
  # UI ----
  ui <- function(request){
    shinydashboard::dashboardPage(
      # Header ----
      shinydashboard::dashboardHeader(title = config$name),

      # Sidebar ----
      shinydashboard::dashboardSidebar(
        sb_create_sidebar(config, data_global)
      ),

      # Body -----
      shinydashboard::dashboardBody(
        sb_create_tab_items(config, data_global)
      )
    )
  }

  # Server -----
  server <- function(input, output, session){
    sb_call_modules(config, data_global)
  }

  shiny::shinyApp(ui = ui, server = server)
}