---
title: "PNCC dTIMS Modelling 2018 Story Board"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    theme: lumen
    source_code: embed
---

```{r setup, include=FALSE}

library(shiny)
library(crosstalk)
library(rgdal)
library(sp)
library(dplyr)
library(sf)
library(leaflet)
library(DT)

shapes_to_filter <- st_read("ramm/PNCCTL.shp") %>% as('Spatial')  # sf import to 'Spatial Object

shapes_to_filter <- spTransform(shapes_to_filter, CRS("+init=epsg:27200"))

shapes_to_filter<- spTransform(shapes_to_filter, CRS("+proj=longlat +ellps=WGS84 +datum=WGS84"))

sd_map <- SharedData$new(shapes_to_filter)


shapes_to_filter@data$surface_da<- as.Date(shapes_to_filter@data$surface_da,format="%d/%m/%Y")

sd_df <- SharedData$new(as.data.frame(shapes_to_filter@data), group = sd_map$groupName())

```

Inputs {data-width=400 .sidebar}
-----------------------------------------------------------------------

```{r}

filter_slider("surface_da","Surface Date",sd_df,~surface_da)
filter_select("surf_mater","Surface Material",sd_df,~surf_mater)


```


Row {data-height=550}
-------------------------------------

###

```{r}

library(leaflet)
leaflet() %>%
      addProviderTiles("OpenStreetMap") %>%
      addPolylines(data = sd_map)
```

Row {data-height=450}
-------------------------------------

###

```{r}
library(DT)
datatable(sd_df, rownames = FALSE, extensions = 'Scroller', 
          options = list(scrollY = 200, scroller = TRUE, columnDefs = list(list(className = 'dt-left', targets = 0:3))))
```