---
title: "Workings"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    social: "menu"
    source_code: embed
---

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

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

### Chart A

```{r}
valueBox(value = 45, icon = "fa-pencil")
```

Column {data-width=350}
-----------------------------------------------------------------------

### Chart B

```{r}
valueBox(value = 126, icon = "fa-comments")
```

### Chart C

```{r}
spam <- 9
valueBox(value = spam, icon = "fa-trash",
         color = ifelse(spam >10, "warning", "primary"))
```

### Chart D

```{r}
spam <- 49
gauge(value = spam, min = 0, max = 50,
      sectors = gaugeSectors(success = c(0, 15),
                            warning = c(15, 25),
                            danger = c(25, 50)))
```