Testing dynamic resize within flexdashboard

dashboard_test.rmd

---
title: "Testing Pier Resize"
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'))

```


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

### Pie Resize

```{r}

data %>% pier() %>% pie.header('Expenditure of the government')

```