Tutuchan

```{r diamonds_{{color}}_{{cut}}_plot}
diamonds %>% 
  filter(
    color == "{{color}}",
    cut   == "{{cut}}"
    ) %>% 
  ggplot(aes(carat, price, colour = clarity)) + 
  geom_point(show.legend = FALSE) + 
  labs(
    title = 'Price by carat for diamonds with color {{color}} and cut {{cut}}'

Tutuchan

---
title: "loop over widgets"
author: "Tutuchan"
date: "14 septembre 2016"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
library(chartjs)

Tutuchan

---
title: "Flex Dashboard"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    horizontal_layout: fill
---

```{r setup, include=FALSE}