forked from thomasmj92/DECD_Analysis
-
Notifications
You must be signed in to change notification settings - Fork 0
/
app.R
294 lines (265 loc) · 10.9 KB
/
app.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
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
# Load R Packages ---------------------------------------------------------
# These are all the packages we'll need to build our app
# You'll need to install any of these that you don't yet have installed
library(shiny)
library(shinyjs)
library(shinythemes)
library(tidyverse)
library(leaflet)
library(shinyWidgets)
library(scales)
library(RSocrata)
options(scipen = 999)
# Data Prep ---------------------------------------------------------------
# # Grab data from data.ct.gov API endpoint specific to this dataset
# url <- "https://data.ct.gov/resource/a8k4-9euq.json"
#
# cols <- c(
# "amount_leveraged",
# "company",
# "county_1",
# "fiscal_year",
# "funding_source",
# "grant_amount",
# "loan_amount",
# "industry",
# "municipality",
# "status",
# "total_assistance",
# "total_project_cost",
# "longitude",
# "latitude"
# )
#
# query <- paste0(
# url, "?",
# "$query=SELECT ", paste(cols, collapse = ", "),
# " WHERE state = 'CT'"
# )
#
# DECD_data <- RSocrata::read.socrata(
# "https://data.ct.gov/resource/a8k4-9euq.json?state=CT"
# )
# Format some of the variable types to 'numeric', and
# correct spelling error in "East WIndsor" observations
DECD_data <- readRDS("data.RDS") |>
dplyr::mutate(
dplyr::across(
.cols = grant_amount:amount_leveraged,
.fns = function(x) as.integer(x)
)
) |>
dplyr::select(
company = company_name,
fiscal_year,
funding_source,
status = job_obligation_status,
grant_amount,
loan_amount,
total_assistance,
total_project_cost,
amount_leveraged,
industry = business_industry,
municipality,
county_1,
geocoded_location.coordinates
) |>
dplyr::mutate(
municipality = dplyr::if_else(
municipality == "East WIndsor",
"East Windsor",
municipality
),
funding_source = dplyr::case_when(
grepl("Manufacturing Assistance Act", funding_source) == TRUE ~ "Manufacturing Assistance Act",
funding_source == "Small Business Express Program" ~ "Small Business Express Program",
TRUE ~ "Other"
)
) |>
tidyr::hoist(
geocoded_location.coordinates,
latitude = list(2L),
longitude = list(1L)
) |>
dplyr::select(-geocoded_location.coordinates)
# Build the UI ------------------------------------------------------------
# Construct the sidebar
sidebar <- shiny::div(id = "Sidebar",
shiny::sidebarPanel(
shiny::h1("CT DECD ANALYZER"),
hr(),
# Create input selection for the 'fiscal_year'
shinyWidgets::pickerInput(
inputId = "MapYearSelection",
label = "Select a Year",
choices = sort(unique(DECD_data$fiscal_year),
decreasing = TRUE),
selected = unique(DECD_data$fiscal_year),
options = list(`actions-box` = TRUE),
multiple = T
),
# Create input selection for 'funding_source'
shinyWidgets::pickerInput(
inputId = "MapFundingSourceSelection",
label = "Select a Funding Source",
choices = sort(unique(DECD_data$funding_source)),
selected = "Manufacturing Assistance Act",
options = list(`actions-box` = TRUE),
multiple = TRUE
),
# Create input selection for 'municipality'
shinyWidgets::pickerInput(
inputId = "CitySelection",
label = "Select a City",
choices = sort(unique(DECD_data$municipality)),
selected = unique(DECD_data$municipality),
options = list(`actions-box` = TRUE),
multiple = TRUE
),
hr(),
br(),
# Add text to the sidebar below the input selectors
shiny::h5("This interactive dashboard displays data reported by the Connecticut Department of Economic and Community Development."),
shiny::h5("The DECD provides support for Connecticut business in a variety of ways, including grants and loans."),
shiny::h5("This dashboard shows the businesses in Connecticut that received assistance from the DECD in the last decade."),
shiny::h5("To learn more about the DECD or see the public dataset used, click on the respsective links below:"),
shiny::uiOutput("DECDurl"),
shiny::uiOutput("DECDdataset"),
hr(),
br(),
br(),
shiny::h6("This dashboard was developed by Mike Thomas using the R programming language and the Shiny development framework."),
shiny::h6("This is an open project, and all of the app code can be found in the following Github repository:"),
shiny::uiOutput("GithubLink"),
width = 3
)
)
# Construct the main dashboard
maindash <- shiny::mainPanel(
# Create a "toggle sidebar" button to show/hide the sidebar
shiny::actionButton("toggleSidebar", "Toggle sidebar", icon = icon("list-alt")),
br(),
hr(),
# Create the first "row" of the dashboard containing the Map and Chart
shiny::fluidRow(
shiny::tabsetPanel(
shiny::tabPanel(
title = "Map",
leaflet::leafletOutput(
outputId = "Map"
)
),
shiny::tabPanel(
title = "Chart",
shiny::plotOutput(
outputId = "BarChart"
)
)
)
),
hr(),
# Create the second "row" of the dashboard containing the Table
shiny::fluidRow(
DT::dataTableOutput(
outputId = "Table"
)
)
)
# Piece the UI together
ui <- shiny::fluidPage(
# Format the dashboard theme/color
theme = shinythemes::shinytheme(theme = "sandstone"),
shinyWidgets::setBackgroundColor(color = "lightgrey",
gradient = c("linear",
"radial"),
direction = c("bottom",
"top",
"right",
"left")),
shinyjs::useShinyjs(),
shiny::sidebarLayout(
# Add the pieces of the UI constructed earlier to the final "UI" object
sidebarPanel = sidebar,
mainPanel = maindash
)
)
# Build the Server --------------------------------------------------------
server <- shiny::shinyServer(function(input, output, session) {
# Create toggle sidebar functionality
shiny::observeEvent(input$toggleSidebar, {
shinyjs::toggle(id = "Sidebar")
})
# Create hyperlink to DECD homepage
output$DECDurl <- shiny::renderUI({
shiny::tagList(a("DECD Homepage", href = "https://portal.ct.gov/DECD"))
})
# Create hyperlink to data.ct.gov DECD dataset
output$DECDdataset <- shiny::renderUI({
shiny::tagList(a("DECD Dataset", href = "https://data.ct.gov/Business/Department-of-Economic-and-Community-Development-D/xnw3-nytd"))
})
# Create hyperlink to Github repo
output$GithubLink <- shiny::renderUI({
shiny::tagList(a("Github Repo", href = "https://github.com/thomasmj92/DECD_Analysis"))
})
# Create leaflet map
output$Map <- leaflet::renderLeaflet({
leaflet::leaflet() |>
leaflet::addProviderTiles(provider = providers$Esri) |>
leaflet::addCircleMarkers(data = DECD_data |>
dplyr::filter(fiscal_year %in% input$MapYearSelection) |>
dplyr::filter(funding_source %in% input$MapFundingSourceSelection) |>
dplyr::filter(municipality %in% input$CitySelection),
lng = ~longitude,
lat = ~latitude,
weight = 10,
radius = 5,
popup = ~company)
})
# Create bar chart
output$BarChart <- shiny::renderPlot({
ggplot2::ggplot(DECD_data |>
dplyr::filter(fiscal_year %in% input$MapYearSelection) |>
dplyr::filter(funding_source %in% input$MapFundingSourceSelection) |>
dplyr::filter(municipality %in% input$CitySelection) |>
dplyr::rename(City = municipality) |>
dplyr::select(fiscal_year, total_assistance, City),
ggplot2::aes(x = fiscal_year,
y = total_assistance,
fill = City)) +
ggplot2::geom_bar(stat = "identity") +
ggplot2::xlab("Year") +
ggplot2::ylab("Sum of Total Assistance") +
ggplot2::scale_y_continuous(labels = scales::comma)
})
# Create data table
output$Table <- DT::renderDataTable({
DECD_data |>
dplyr::filter(fiscal_year %in% input$MapYearSelection) |>
dplyr::filter(funding_source %in% input$MapFundingSourceSelection) |>
dplyr::filter(municipality %in% input$CitySelection) |>
dplyr::mutate(Company = company,
County = county_1,
City = municipality,
Year = fiscal_year,
Funding_Source = funding_source,
Industry = industry,
Grant_Amt = formatC(round(grant_amount), format = "f", big.mark = ",", drop0trailing = TRUE),
Loan_Amt = formatC(round(loan_amount), format = "f", big.mark = ",", drop0trailing = TRUE),
Total_Amt = formatC(round(total_assistance), format = "f", big.mark = ",", drop0trailing = TRUE),
Amt_Leveraged = formatC(round(amount_leveraged), format = "f", big.mark = ",", drop0trailing = TRUE),
Status = status) |>
dplyr::select(Company,
County,
City,
Year,
Funding_Source,
Industry,
Grant_Amt,
Loan_Amt,
Total_Amt,
Amt_Leveraged,
Status)
}, rownames = FALSE)
})
# Run the App -------------------------------------------------------------
shiny::shinyApp(ui = ui, server = server)