gistfile1.txt

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

```{r setup, include=FALSE, cache=TRUE}
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'))

```

Pier library
==================

### Pie chart

```{r}
data %>% pier() %>% pie.header('Expenditure of the government')
```