A quick app built showing how to make sliders and interactive charts!

mylittleapp.Rmd

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

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

Column {.sidebar}
-----------------------------------------------------------------------
```{r}
sliderInput("rows","Iris rows to select",min = 0, max = nrow(iris), nrow(iris))
checkboxGroupInput("species",
                   "Within the following species",
                   unique(iris$Species),
                   unique(iris$Species))
```

Column {data-width=650}
-----------------------------------------------------------------------

### Chart A

```{r}
renderPlotly({
  iris %>% 
    sample_n(input$rows) %>% 
    filter(Species %in% input$species) %>% 
  ggplot(aes(Petal.Length, Petal.Width, colour=Species)) +
  geom_point() ->
  basicChart

plotly::ggplotly(basicChart)

})

```