R/app_ui.R

In ove-ut3/ip.reponses: Mise à disposition des réponses aux enquêtes d'insertion professionnelle

#' @import shiny shinydashboard
app_ui <- function() {
  
  ui <- tagList(
    # Leave this function for adding external resources
    golem_add_external_resources(),
    # List the first level UI elements here 
    dashboardPage(
      dashboardHeader(title = "Enqu\u00eates d'insertion professionnelle - Suivi des r\u00e9ponses", disable = TRUE),
      dashboardSidebar(collapsed = TRUE),
      dashboardBody(
        mod_stats_values_ui("stats_values_ui"),
        mod_filters_ui("filters_ui"),
        mod_responses_table_ui("responses_table_ui")
      )
    )
  )
  
  shinymanager::secure_app(ui, language = "fr")
  
}

#' @import shiny
golem_add_external_resources <- function(){
  
  addResourcePath(
    'www', system.file('app/www', package = 'ip.reponses')
  )
 
  tags$head(
    golem::activate_js(),
    golem::favicon(),
    # Add here all the external resources
    # If you have a custom.css in the inst/app/www
    # Or for example, you can add shinyalert::useShinyalert() here
    tags$link(rel="stylesheet", type="text/css", href="www/custom.css")
  )
}