---
title: "Toronto Paramedic Dispatch Dashboard"
author: "Anthony Ionno"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    social: menu
    source_code: embed
    theme: bootstrap
---

```{r setup, include=FALSE}
library(tidyverse)
library(magrittr)
library(htmlwidgets)
library(dygraphs)
library(xts)
library(knitr)
library(flexdashboard)
library(tmap)
library(rgdal)
library(raster)
library(d3heatmap)
library(reshape2)
# Read in Toronto Paramedic Data
Para_df<-read.csv("2018-01-28 _Combined-TO-para-data.csv")
plot1Data<-Para_df %>%
  mutate(.,Dispatch_Time=as.Date(Dispatch_Time)) %>%
group_by(.,format(Dispatch_Time,"%Y-%m")) %>% 
  summarise(.,Count=n())
plot1_ts<-ts(data = plot1Data$Count, start = 2012,end = 2016,frequency = 12)
plot2Data<-Para_df %>%
    mutate(.,Dispatch_Time=as.Date(Dispatch_Time)) %>%
group_by(.,format(Dispatch_Time,"%Y-%m")) %>% 
  summarise(.,TotalUnitsonScene=sum(Units_Arrived_At_Scene))
plot2_ts<-ts(data = plot2Data$TotalUnitsonScene, start = 2012,end = 2016,frequency = 12)
Ontario_shp<-shapefile("Ontario.shp.shp") 
names(Ontario_shp@data)<-c("Forward_Sortation_Area","ID","PRNAME","Total Dispatches")
Ontario_shp<-subset(Ontario_shp,`Total Dispatches`>0)
data_wide_month <- read.csv("2018-02-18_day-and-month-count.csv")
data_wide_month <- dcast(data_wide_month, dayofweek ~ Month, value.var="Count",sum)

```

Row 
-----------------------------------------------------------------------

### Total Paramedic Dispatches from 2012 through 2016 {.no-padding}

```{r}
Ontario_FSA_Map<-tm_shape(Ontario_shp) +
 tm_polygons("Total Dispatches",
             palette="PuBu") +
  tm_layout(legend.bg.color = "grey90", legend.bg.alpha=.5, legend.frame=TRUE)
Ontario_leaflet<-tmap_leaflet(Ontario_FSA_Map)
Ontario_leaflet %>%
  leaflet::setView(lat = 43.7532,lng = -79.3832,zoom = 10) 

```




Row 
-----------------------------------------------------------------------



### Total Monthly Paramedic Dispatch Frequency

```{r}
dygraph(data =plot1_ts) %>%
  dySeries("V1", label = "Number of Dispatches", color = "black") %>%
  dyOptions(axisLineWidth = 1.5, fillGraph = TRUE )%>%
  dyRangeSelector(height = 60) 

```

### Paramedic Dispatch Frequency Broken Down by Month and Weekday

```{r}
d3heatmap(data_wide_month[,2:13], scale="column", colors="PuBu",Rowv = FALSE,Colv = FALSE)
```