c3.Rmarkdown

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

```{r setup, include=FALSE}
library(flexdashboard)
library(c3)
library(pier)

data <- data.frame(label = c('Environment','Education','Business','Community'),
                   value = c(104,119,638,1250),
                   color = RColorBrewer::brewer.pal(4, 'Spectral'))

data_2 = data.frame(a = abs(rnorm(20) * 10),
                  b = abs(rnorm(20) * 10),
                  date = seq(as.Date("2014-01-01"), by = "month", length.out = 20))

```


C3 library {.storyboard}
==================

### Time series

```{r}
c3(data_2, x='date')
```

### Simple line

```{r}
c3(data_2)
```