---
title: "HGEN612 - Klimek - Project 02 Code Checkpoint"
output: 
  flexdashboard::flex_dashboard:
    source_code: embed
 #   orientation: rows
    vertical_layout: fill 
    theme: yeti #readable - try out different themes (pleasing and aesthetic)
    logo: ../img/tree-logo-resized.png
    favicon: ../img/tree-logo-resized.png #Find beetle favicon
  
---
```{r setup, include=FALSE}
library(flexdashboard)

# Tables
library(DT) #data table

# Plotting
library(ggplot2)
library(plotly)

# Analysis
library(corrr) #correlation matrix

# Other
library(emo) #emojis

```

Readme
======

Column {.tabset}
--------
### Readme

Blurb about the data, timeline it was taken, reason it was measured, where it was measured.

Point of this dashboard - what analysis was done

### Data Library 

Variable names - abbreviations - and meaning


The progression of a pine beetle infestation {.storyboard}
=====

### Frame 1 - healthy tree 

Put healthy tree image here

```{r}

```


### Frame 2 - pine beetle

Put image of pine beetle here, possibly with native range and other info

```{r}

```

### Frame 3 - put dead tree here

Put image of results from pine beetle infestation

```{r}

```

### Maybe a frame 4? - overview map of infestation

```{r}

```

Data Overview
===================================== 

Column 
-----------------------------------------------------------------------

### Scatterplot with variables of interest

```{r}
plot_tree <- ggplot(trees, aes(Girth, Height)) +
  geom_point(aes(colour = Volume), size = 4) +
  #scale_color_gradient(low="blue", high="red") +
  scale_color_gradientn(colours = rainbow(5)) +
  theme_bw()
  
ggplotly(plot_tree)

```

Column
----

### Data Table

```{r}
datatable(trees,
          caption = "LOOK AT THESE TREES",
          options = list(
            scrolly = "450px"
          ))
```

Plot Matrix with Variables of Interest
=======

{.tabset}
----

### Matrix plot showing relation of variables 



### Graphs prior to data transformation
  
### Graphs after data transformation measures

Lasso
=======


Column
----

### Logistic Regression Feature
```{r}

```

Column
----

### AUC plot
```{r}

```

### Meter/gauge
```{r}

```


Ridge
=======

Column
----

### Logistic Regression Feature
```{r}

```

Column
----

### AUC plot
```{r}

```

### Meter/gauge
```{r}

```