R/app_ui.R

In lee269/shinycsps: shiny People Survey

#' @import shiny
app_ui <- function() {
  

# UI elements -------------------------------------------------------------

  control_section <- column(width = 3,
                            # mod_ou_select_ui("ou_select_ui_1"),
                                                
                            )
  
  core_questions <- tabPanel("Core Questions",
                             column(width = 3, mod_attribute_select_ui("attribute_select_ui_1"),
                                    mod_core_question_select_ui("core_question_select_ui_1")), 
                             mod_core_question_chart_ui("core_question_chart_ui_1")
                             )
  
  engagement <- tabPanel("Engagement",
                         column(width = 3,
                                mod_attribute_select_ui("attribute_select_ui_eng_1"),
                                mod_attribute_select_ui("attribute_select_ui_eng_2")),
                         mod_engagement_facet_chart_ui("engagement_facet_chart_ui_1")
                         )
  
  main_section <- column(width = 9,
                         # mod_core_question_chart_ui("core_question_chart_ui_1")
                         )
  
  navlist <- navlistPanel(
                          "Core questions",
                          tabPanel("drilldown", control_section, main_section)
  )
  

# Main dashboard ----------------------------------------------------------

  tagList(
    # Leave this function for adding external resources
    golem_add_external_resources(),
    # List the first level UI elements here 
    fluidPage(
      titlePanel("shinycsps"),
      sidebarLayout(
      sidebarPanel(mod_ou_select_ui("ou_select_ui_1")),
      mainPanel(
        tabsetPanel(core_questions,
                    engagement)
      )
      )
    )
  )
}

#' @import shiny
golem_add_external_resources <- function(){
  
  addResourcePath(
    'www', system.file('app/www', package = 'shinycsps')
  )
 
  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")
  )
}