aqualectrawriteoffcalc/R/app_ui.R

#' The application User-Interface
#' 
#' @param request Internal parameter for `{shiny}`. 
#'     DO NOT REMOVE.
#' @import shiny
#' @import shinydashboard
#' @importFrom bslib bs_theme
#' @noRd
app_ui <- function(request) {
  tagList(
    # Leave this function for adding external resources
    golem_add_external_resources(),
    # Your application UI logic 
fluidPage(
  titlePanel("Aqualectra AR"),
  theme = bs_theme(version = 4, bootswatch = "lumen"),
 # mod_shinyman_ui("shinyauth"),
        fluidRow(
          column(
            width = 6,
            box(
              width=12,
              solidHeader = T,
              mod_barplot_ui("otype")
            )
            
          ),
          column(
            width = 6,
            box(
              width=12,
              solidHeader = T,
              radioButtons("wadepall", label="Select", choices = c("Waste","Deposit","Rest"), selected = "Rest", inline = T),
              mod_dccb_ui("all")
            )
          )
          
        ),
        fluidRow(
          box(
            width=12,
            solidHeader = T,
            mod_tab_ui("tab"),
            mod_downbutt_ui("wadepalldata")
          )
          
        ),
        
        h2(" Waste and Deposits Removed"),
        
        fluidRow(
          column(
            width = 6,
            box(
              width=12,
              solidHeader = T,
              mod_barplot_ui("del")
            )
            
          ),
          column(
            width = 6,
            box(
              width=12,
              solidHeader = T,
              radioButtons("delein", label="Select", choices = c("Open Items","Discontinued", "Left","Passed","Government","Own"), selected = "Passed", inline = T),
              mod_dccb_ui("delei")
            )
          )
          
        ),
        fluidRow(
          box(
            width=12,
            solidHeader = T,
            mod_tab_ui("dele"),
            mod_downbutt_ui("deleindata")
          )
          
        ),
        
        h2("Inoperative businesses, individuals who passed away or moved, government/own, removed (further)"),
        h5("Does not contain BPs marked as discontinued in Chamber of Commmerce"),
        
        fluidRow(
          column(
            width = 6,
            #radioButtons("govtstatus", "Select Govt or not", choices = c("Government","Own","Rest"), selected="Rest", inline=T),
            radioButtons("status","Select BP Activity", choices = c("Only Active", "Only Inactive", "Both Active and Inactive"),
                         selected = "Only Inactive", inline = T),
            box(
              width=12,
              solidHeader = T,
              mod_barplot_ui("fivepm"),
              mod_stackedbarplot_ui("fivepmtype")
            )
          ),
          column(
            width = 6,
            box(
              width=12,
              solidHeader = T,
              mod_dccb_ui("fivep"),
              mod_barplot_ui("fivedunn"),
              mod_stackedbarplot_ui("fivedunntype")
            )
          )
        ),
        fluidRow(
          column(
            width = 6,
            box(
              width=12,
              solidHeader = T,
              mod_barplot_ui("agew"),
              mod_stackedbarplot_ui("agewwbptype"),
              h3("Aggregate"),
              mod_tab_ui("fiv"),
              mod_downbutt_ui("fivdata")
            )
          ),
          column(
            width = 6,
            box(
              width=12,
              solidHeader = T,
              mod_tab_ui("five"),
              mod_downbutt_ui("fivedata")
              
            )
          )
        ),
  
  fluidRow(
    h4("The threshhold selecter filters based on the sum of all open items per contract account, without considering the credits"),
    h5("The items above contains contracts whose total open items (excluding the negatives) exceed the selected threshold value"),
    sliderInput("thresholdsel","Select Threshhold", min=1, max = 20000, step = 5, value = 500, width = "100%"),
    column(
      width = 6,
      box(
        width=12,
        solidHeader = T,
        mod_barplot_ui("thrfivepm"),
        mod_stackedbarplot_ui("thrfivepmtype")
      )
    ),
    column(
      width = 6,
      box(
        width=12,
        solidHeader = T,
        mod_dccb_ui("thrfivep"),
        mod_barplot_ui("thrfivedunn"),
        mod_stackedbarplot_ui("thrfivedunntype")
      )
    )
  ),
  fluidRow(
    column(
      width = 6,
      box(
        width=12,
        solidHeader = T,
        mod_barplot_ui("thragew"),
        mod_stackedbarplot_ui("thragewwbptype"),
        h3("Aggregate"),
        mod_tab_ui("thrfiv"),
        mod_downbutt_ui("thrfivdata")
      )
    ),
    column(
      width = 6,
      box(
        width=12,
        solidHeader = T,
        mod_tab_ui("thrfive"),
        mod_downbutt_ui("thrfivedata")
        
      )
    )
  )
      ),
fluidRow(
  box(
    width=12,
    solidHeader = T,
    h3("Aggregated - Passed/Left"),
    mod_tab_ui("passedleftaggre"),
    mod_downbutt_ui("passedleftaggredata")
    
  )
  
),

fluidRow(
  box(
    width=12,
    solidHeader = T,
    h3("Aggregated - Orgs discontinued, dissolved, bankrupt or liquidated"),
    mod_tab_ui("orgaggre"),
    mod_downbutt_ui("orgaggredata")
    
  )
  
)
    )
}

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