R/app_ui.R

In murrayjw/nbaWinLossExplorer: NBA Win Loss Explorer

#' The application User-Interface
#' 
#' @param request Internal parameter for `{shiny}`. 
#'     DO NOT REMOVE.
#' @import shiny
#' @import shinydashboard
#' @noRd
app_ui <- function(request) {
  tagList(
    # Leave this function for adding external resources
    golem_add_external_resources(),
    # Your application UI logic 
    dashboardPage(
      
      # Header page
      dashboardHeader(title = "NBA Win/Loss Record Explorer"),
      
      # Sidebar page
      dashboardSidebar(
        sidebarMenu(
          menuItem("Historical Record Explorer", icon = icon("th"),
                   tabName = "historical", badgeColor = "green"),
          menuItem("Current NBA record", tabName = "current", icon = icon("dashboard"))
          
        )
      ),
      
      dashboardBody(
        tabItems(
          tabItem(tabName = "historical",
                  h2("Record Matching"),
                  fluidRow(
                    column(width = 4,
                    mod_sim_inputs_ui("sim_inputs_ui_1"),
                    mod_value_box_ui("value_box_matching_records", width = 12)
                    ),
                    column(width = 8,
                           tabBox(id = "tabs2", width = 12,
                                  height = '500px',
                                  title = "Results",
                                  tabPanel(title  = "Summary",
                                           br(),
                                           mod_value_box_ui("value_box_wins", width = 5),
                                           mod_value_box_ui("value_box_losses", width = 5),
                                           mod_value_box_ui("value_box_playoffs", width = 5),
                                           mod_value_box_ui("value_box_best_case", width = 5),
                                           mod_value_box_ui("value_box_worst_case", width = 5)),
                                  tabPanel(title = "Matching Seasons",
                                           mod_datatable_ui("datatable_ui_1")),
                                  tabPanel(title  = "Plot",
                                           br(),
                                           shinycustomloader::withLoader(mod_plotly_display_ui("plotly_display_ui_1"),
                                                                         type="html", loader="loader1"))
                                  
                           )
                    )
                  )
          ),
          tabItem(tabName = "current",
                  fluidRow(
                    tabBox(width = 10,
                           title = "Standings",
                           id = "tabset1",
                           tabPanel("Eastern Conference Standings",
                                    mod_standings_ui("eastern_ui")
                           ),
                           tabPanel("Western Conference Standings",
                                    mod_standings_ui("western_ui")
                           )
                    )
                  ))
        )
      )
      
    )
  )
}

#' Add external Resources to the Application
#' 
#' This function is internally used to add external 
#' resources inside the Shiny application. 
#' 
#' @import shiny
#' @importFrom golem add_resource_path activate_js favicon bundle_resources
#' @noRd
golem_add_external_resources <- function(){
  
  add_resource_path(
    'www', app_sys('app/www')
  )
 
  tags$head(
    favicon(),
    bundle_resources(
      path = app_sys('app/www'),
      app_title = 'nbaWinLossExplorer'
    )
    # Add here other external resources
    # for example, you can add shinyalert::useShinyalert() 
  )
}