---
title: "WiNS Monitoring System 2018: Status of Encoding"
output: 
  flexdashboard::flex_dashboard:
    orientation: column
    social: menu
    source_code: embed
---

```{r setup, include=FALSE}
library(knitr)
library(d3heatmap)
library(flexdashboard)
library(readxl)
getwd()
rwins<- read.csv("C:/Users/Marvin Marquez/Documents/R/Syntax/Status of Encoding.csv", row.names="region")
str(rwins)
```

Column {data-width=650}
-----------------------------------------------------------------------

### Level of Participation by Region

```{r,include }
d3heatmap(rwins, scale= "column")
```

Column {data-width=350}
-----------------------------------------------------------------------

### Level of Participation in table

```{r}
knitr::kable(rwins)
```