file531c2cc66751.R

---
title: "First dash"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
runtime: shiny
---

```{r setup, include=FALSE}
library(flexdashboard)
library(ggplot2)
library(plotly)
data(iris)
```

Sidebar {.sidebar}
-----------------------------------------------------------------------
```{r}
numericInput("rows", "Number of rows to sample", min = 1, max=nrow(iris),
             value=floor(.7*nrow(iris)))
```

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

### Chart A

```{r}
renderPlotly({
p = ggplot(dplyr::sample_n(iris, size=input$rows), aes(x=Sepal.Width, y=Sepal.Length)) + geom_point()
ggplotly(p)
})
```

### Chart A
```{r}

```

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

### Chart B

```{r}

```

### Chart C

```{r}

```