R/app_ui.R

In bcgov/GWELLS-QAQC-RShiny-Dashboard: A shiny app for GWELLS QAQC

#' The application User-Interface
#'
#' @param request Internal parameter for `{shiny}`.
#'     DO NOT REMOVE.
#' @import shiny
#' @noRd
app_ui <- function(request) {
  library(plotly)
  tagList(
    # Leave this function for adding external resources
    golem_add_external_resources(),
    # fluidpage de exemple
    fluidPage(
      waiter::useWaiter(),
      tags$style(".glyphicon-ok-sign {color:#2b8ee5}
              .glyphicon-question-sign {color:#f4e107}
              .glyphicon-exclamation-sign {color:#e5413b}
              .glyphicon-flag, .glyphicon-trash {color:#28b728}
                 .dropdown-menu {color:#fff}"),
      fluidRow(
        column(2, mod_filterDataInputGenerate_ui("filterDataInput_ui_1")), 
        column(2, mod_downloadFileOutput_ui("downloadFileOutput_ui_1")),
        column(2, mod_downloadFileOutputDrillers_ui("downloadFileOutputDrillers_ui_1")),
        column(2, mod_filterDataInputWTN_ui("filterDataInput_ui_1")),
        column(2, mod_filterDataInputDate_ui("filterDataInput_ui_1"))
      ),
      hr(),
      navbarPage(
        title = "bcgov gwells shiny App", 
        tags$head(tags$link(rel = "stylesheet", type = "text/css", href = "bcgov.css")), # theme  parameter no longer recommended for passing CSS file name https://shiny.rstudio.com/articles/css.html
        tabPanel(
          "Overview",
          mainPanel(width = 12, helpText(HTML(helptext_overview()))),
          bc_template_footer
        ),   
        tabPanel(
          "Summary Table",
          sidebarLayout(
            sidebarPanel(width = 3, helpText(HTML(helptext_summaryTable1()))),
            mainPanel(width = 9, mod_summaryTable1Output_ui("summaryTable1Output_ui_1"))
          ),        
          bc_template_footer
        ),   
        tabPanel(
          "Post-WSA Wells",
          sidebarLayout(
            sidebarPanel(width = 2,helpText(HTML(helptext_post_wsa_wells()))),
            mainPanel(width = 10, mod_table1Output_ui("table1Output_ui_1"))
          ),
          bc_template_footer
        ),
        tabPanel(
          "Mislocated Wells",
          sidebarLayout(
            sidebarPanel(width = 3,helpText(HTML(helptext_mislocated_wells()))),
            mainPanel(width = 9, mod_table2Output_ui("table2Output_ui_1"))
          ),        
          bc_template_footer
        ),
        tabPanel(
          "Pre-WSA Wells",
          sidebarLayout(
            sidebarPanel(width = 3, helpText(helptext_pre_wsa_wells())),
            mainPanel(width = 9, mod_table3Output_ui("table3Output_ui_1"))
          ),        
          bc_template_footer
        ),       
        tabPanel(
          "Regional Summary",
          sidebarLayout(
            sidebarPanel(width = 3, helpText(HTML(helptext_region_summary()))),
            mainPanel(width = 9, mod_summaryTableRegionOutput_ui("summaryTableRegionOutput_ui_1"))
          ),        
          bc_template_footer
        ),           
        tabPanel(
          "Map",
          sidebarLayout(
            sidebarPanel(
              width = 3, helpText(HTML(helptext_map())),
            ),
            mainPanel(width = 9, 
                      mod_map1Output_ui("map1Output_ui_1")
            )
          ),        
          bc_template_footer
        ),           
        tabPanel(
          "Well Purposes Graph",
          sidebarLayout(
            sidebarPanel(width = 3, helpText(HTML(helptext_bar_chart()))),
            mainPanel(width = 9, mod_figure1Output_ui("figure1Output_ui_1"))
          ),        
          bc_template_footer
        ),
        tabPanel(
          "Drillers",
          sidebarLayout(
            sidebarPanel(width = 2, helpText(HTML(helptext_drillers()))),
            mainPanel(width = 10, mod_drillersTableOutput_ui("drillersTableOutput_ui_1"))
          ),        
          bc_template_footer
        )  
      )
    )
  )
}

#' 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 = "GWELLS QAQC"
    )
    # Add here other external resources
    # for example, you can add shinyalert::useShinyalert()
  )
}