---

---
title: "HTML Widgets Showcase"
output: 
  flexdashboard::flex_dashboard:
    storyboard: true
    social: menu
    source: embed
---

```{r setup, include=FALSE}
library(flexdashboard)
library(tidyverse)
library(dplyr)
library(readxl) 
library(ggplot2)
library(DataExplorer)
library(knitr)
library(opendatawindsor)
```
***
Dashboard
===================================== 
***

All Service requests for 2016{.datasets data-navmenu="Explore"}
=====================================

```{r}
Allservice2016<-read_csv("AllServiceRequests_Aug01-Dec31_2016.csv")
plot_bar(Allservice2016,maxcat = 10,order_bar = TRUE, title = "Year 2016 ",theme_config = list())+ scale_color_viridis_b()
```

***

All Service requests for 2017, {.datasets data-navmenu="Explore"}
=========================================
```{r}
Allservice2017<-read_csv("AllServiceRequests_2017.csv")
plot_bar(Allservice2017,maxcat = 10,order_bar = TRUE, title = "Year 2017 ",theme_config = list())+ scale_color_viridis_b()
```

***
All Service requests for 2018{.datasets data-navmenu="Explore"}
=========================================
```{r}
Allservice2018<-read_csv("AllServiceRequests_2018.csv")
plot_bar(Allservice2018,maxcat = 10,order_bar = TRUE, title = "Year 2018 ",theme_config = list())+ scale_color_viridis_b()
```
***
All Service requests for 2019{.datasets data-navmenu="Explore"}
=========================================
```{r}
Allservice2019<-read_csv("AllServiceRequests_2019.csv")
plot_bar(Allservice2019,maxcat = 10,order_bar = TRUE, title = "Year 2019 ",theme_config = list())+ scale_color_viridis_b()
```
***
All Service requests for 2020{.datasets data-navmenu="Explore"}
=========================================
```{r}
Allservice2020<-read_csv("AllServiceRequests_2020 (1).csv")
plot_bar(Allservice2020,maxcat = 10,order_bar = TRUE, title = "Year 2020 ",theme_config = list())+ scale_color_viridis_b()
```
***
All Service requests for 2021{.datasets data-navmenu="Explore"}
=========================================
```{r}
Allservice2021<-read_csv("AllServiceRequests_2021.csv")
plot_bar(Allservice2021,maxcat = 10,order_bar = TRUE, title = "Year 2021 ",theme_config = list())+ scale_color_viridis_b()
```
***
All Service requests for YTD{.datasets data-navmenu="Explore"}
=========================================
```{r}
AllserviceYTD<-read_csv("AllServiceRequests_YTD.csv")
plot_bar(AllserviceYTD,maxcat = 10,order_bar = TRUE, title = "Year 2017 ",theme_config = list())+ scale_color_viridis_b()
```
***