Column1

Photo

Cars Plot

Column2

Participants

50

Gauge Plot

Graph

---
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

### Photo

![](images/Aung Thu Chai.JPG){width="342"}

### Cars Plot

```{r}
plot(cars)
```

## Column2

### Participants

```{r}
valueBox(50,caption = "Total Participants",icon = "fa-users",
         color = "lightblue")
```

### Gauge Plot

```{r}
Training_access=50
gauge(50,min=0,max=60,label="Training success")
```

### Graph

```{r}
hist(cars$speed,col="goldenrod",
     density=12,border = "black")
```