Column1

Welcome to our Webinar

Merry Christmas
Merry Christmas

Car Plot

Column2

Participants

50

Gauge Plot

---
title: "Dashboard-01"
output: 
  flexdashboard::flex_dashboard:
    #orientation: columns
    vertical_layout: fill
    theme: yeti # "bootstrap", "cerulean", "cosmo", "darkly", "flatly", "journal", "lumen", "paper", "readable", "sandstone", "simplex", "spacelab", "united", "yeti"
    source_code: embed
    self_contain: true
    social: menu
---

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

## Column1

### Welcome to our Webinar

![Merry Christmas](Saint_nictocat.jpg){width="362"}

### Car Plot

```{r}
plot(cars)

```

## Column2

### Participants

```{r}

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

```

### Gauge Plot

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

```

### 

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