---
title: "It's All the Same Map"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    social: menu
    theme: cosmo
    source: embed
    vertical_layout: fill
---

```{r setup, include=FALSE}
library(flexdashboard)
library(leaflet)
library(leafpop)
library(htmlwidgets)
library(dplyr)
library(purrr)
library(htmltools)
library(dlnm)
library(ggplot2)
library(rgdal)
library(dplyr) # supporting data manipulation
library(gridExtra) # adding extra features for plotting
library(ggthemes) # extra themes (based on ggplot2)
library(readxl)
library(sf)
library(sp)
library(tigris)
library(geojsonio)
library(pdftools)

Covid_Boston <-read.csv("boston.csv")

bitmap <- pdf_render_page("day 1 long with link.pdf", page = 1)
bostoneight <- geojsonio::geojson_read("Climate_Ready_Boston_Social_Vulnerability.geojson", what = "sp")
Bosoton_RedLine <- readOGR(dsn = "MABoston1938", layer = "cartodb-query", stringsAsFactors = FALSE)
Boston_Zip <- readOGR(dsn = "ZIP_Codes-shp", layer = "ZIP_Codes", stringsAsFactors = FALSE)
Covid_Race <-read.csv("Race-Grid view.csv")

data("chicagoNMMAPS") #?chicagoNMMAPS
chic <- chicagoNMMAPS
# selecting only data for July 1995

chic_july <- chic %>%
  filter(month == 7 & year == 1995)

base_plot <- ggplot(data = chic_july, mapping = aes(x = date, y = death))
# Let's make the hypothesis that a heat wave was present in theg the period 14.07 - 17.07

# No Highlight of this interesting aspect
plot_1 <- base_plot +
  geom_line() + theme_bw() + ggtitle("No Highlight")

```


Intro {data-icon="fa-map"}
=====================================

### 
```{r pressure4, echo=FALSE, fig.cap="Summer of Extremes", out.width = '100%'}
knitr::include_graphics("front.png")
```