-
Notifications
You must be signed in to change notification settings - Fork 0
/
global.R
74 lines (59 loc) · 3.07 KB
/
global.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
# Packages ----------------------------------------------------------------
# Packages for Interactive Web application
library(shiny)
library(shinyBS)
library(shinydashboard)
library(bs4Dash)
library(shinycssloaders)
library(bslib)
library(bsicons)
# Packages for Number formatting
library(scales)
# Packages for Data Cleaning/Processing
library(tidyverse)
# Packages for Chart Creation
library(psrcplot)
library(echarts4r)
# Packages for Map Creation
library(sf)
library(leaflet)
# Packages for Table Creation
library(DT)
# Package for Excel Data Creation
library(openxlsx)
# Run Modules Files ---------------------------------------------------------------------------
module_files <- list.files('modules', full.names = TRUE)
sapply(module_files, source)
source("functions.R")
# Page Information --------------------------------------------------------
left_panel_info <- read_csv("data/left_panel_information.csv", show_col_types = FALSE)
page_text <- read_csv("data/page_text.csv", show_col_types = FALSE)
# Inputs ---------------------------------------------------------------
wgs84 <- 4326
load_clr <- "#91268F"
base_yr <- "2023"
pre_pandemic <- "2019"
# Data via RDS files ------------------------------------------------------
ntd_data <- readRDS("data/ntd_data.rds")
transit_buffers <- readRDS("data/transit_buffers.rds")
transit_buffer_data <- readRDS("data/transit_buffer_data.rds")
transit_layer_data <- readRDS("data/transit_layer_data.rds") |> mutate(year = year(date))
latest_ntd_month <- ntd_data |> filter(grouping == "YTD") |> mutate(d = as.character(month(date, label = TRUE))) |> select("d") |> unique() |> pull()
ntd_data <- ntd_data |>
mutate(grouping = str_replace_all(grouping, "YTD", paste0("Year to Date: Jan-",latest_ntd_month))) |>
mutate(grouping = factor(grouping, levels = c(paste0("Year to Date: Jan-",latest_ntd_month), "Annual")))
# Values for Drop Downs ---------------------------------------------------
ntd_metric_list <- as.character(unique(ntd_data$metric))
ntd_mode_list <- ntd_data |> select("variable") |> filter(variable != "All Transit Modes") |> distinct() |> pull()
ntd_operator_list <- ntd_data |> filter(geography_type == "Transit Operator") |> filter(!(geography %in% c("Senior Services of Snohomish County", "King County Ferry District"))) |> select("geography") |> distinct() |> pull()
stop_buffer_list <- unique(transit_buffer_data$transit_buffer)
transit_links <- c("Community Transit" = "https://www.communitytransit.org/",
"Everett Transit" = "https://everetttransit.org/",
"King County Metro" = "https://kingcounty.gov/en/dept/metro",
"Kitsap Transit" = "https://www.kitsaptransit.com/",
"Pierce Transit" = "https://www.piercetransit.org/",
"Pierce County Ferry" = "https://www.piercecountywa.gov/1793/Ferry",
"Sound Transit" = "https://www.soundtransit.org/",
"Washington State Ferries" = "https://wsdot.wa.gov/travel/washington-state-ferries",
"Transit Planning at PSRC" = "https://www.psrc.org/our-work/transit"
)