### Chart A
---
title: "Dashboard-01"
output:
flexdashboard::flex_dashboard:
#orientation: columns
vertical_layout: fill
theme: spacelab
source_code: embed
self_contained: true
social: menu
---
```{r setup, include=FALSE}
library(flexdashboard)
```
## Column1
### Keynesian Model in Covid-19
{width="368"}
### Chart A
```{r}
plot(cars)
```
## Column2
### Participants
```{r}
valueBox(50,
caption="Total Participants",
icon="fa-user",
color="yellow")
```
### Gauge Plot
```{r}
Train_access=50
gauge( Train_access,
min=0, max=60,
label ="Training success")
```
###
```{r}
hist(cars$speed, col="goldenrod", density=20, boarder="blue")
```