Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
---
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}
```
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment