R/page_overview.R

In djpr-data/djprlabourdash: DJSIR Jobs Dashboard

page_overviewUI <- function(...) {
  shiny::fluidPage(
    fluidRow(
      column(
        width = 4,
        fluidRow(
          djprshiny::djpr_h1_box("DJSIR Labour Force Dashboard")
        ),
        fluidRow(
          green_text_box(
            "The DJSIR Labour Force Dashboard explores information on Victorian employment and job seekers. Use the sidebar to navigate through information on various demographics such as regions, age, sex and industry."
          )
        )
      ),
      box(
        width = 8,
        shiny::uiOutput("main_table", height = "800px") %>%
          djpr_with_spinner(proxy.height = "800px")
      )
    ),
    box(
      width = 12,
      style = "padding:10px;",
      HTML(
        # "This dashboard is produced by the <b>Strategy and Priority ",
        # "Projects - Data + Analytics</b> team at the Victorian Department ",
        # "of Jobs, Precincts and Regions.",
        "The latest data in this ",
        "dashboard is for ", format(data_dates$`6202012`$max, "%B %Y"), ".",
        "We are committed to making our websites accessible to all users.",
        "We are aware that parts of these dashboards are not fully accessible.",
        "If you require this information in an alternative format or would",
        "like to provide feedback please ",
        "<a href='mailto:spp-data@djsir.vic.gov.au?subject=DJSIR Labour Force Dashboard'>email us</a>.",
        "</br>"
      ),
      div(
        style = "text-align: center;",
        tags$a(
          class = "legalLink",
          href = "#shiny-tab-legal",
          "Copyright | Disclaimer"
        )
      )
    ) %>%
      fluidRow()
  )
}

page_overview <- function(input, output, session) {
  output$main_table <- renderUI({
    req(dash_data)
    table_overview() %>%
      flextable::htmltools_value(ft.shadow = FALSE)
  }) %>%
    bindCache(
      data_dates$`6202012`$max,
      data_dates$`6202016`$max,
      data_dates$`6202019`$max,
      data_dates$`6202023`$max,
      data_dates$`6291016`$max
    )


  output$overview_diagram <- renderPlot({
    viz_overview_illustration()
  })
}