---
title: "Untitled"
output: 
  flexdashboard::flex_dashboard:
    storyboard: true
    social: menu
    source: embed
---

```{r setup, include=FALSE}
library(flexdashboard)
library(ggplot2)
library(ggthemes)
library(palmerpenguins)
library(plotly)
knitr::opts_chunk$set(echo = TRUE)
```

### Our First Plot

```{r echo=FALSE}
ggplotly(
  ggplot(data = penguins,
         mapping = aes(x = flipper_length_mm, y = body_mass_g))+
    geom_point(aes(color = species, shape = species))+
    geom_smooth(method = 'lm', se = FALSE)+
    facet_wrap(~island)+
    labs(
      title = 'Penguins Body Mass and Flipper Length by Island',
      subtitle = 'Dimensions for Adelie, Chinstrap and Gentoo Penguins',
      x = 'Flipper Length (mm)',
      y = 'Body Mass (g)',
      color = 'Species', shape = 'Species') +
    scale_color_brewer(palette = 'Set1'))

```
 
 *** 
- some notes
 
- some more notes
 
- even more notes