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: spacelab # "bootstrap", "cerulean", "cosmo", "darkly", "flatly", "journal", "lumen", "paper", "readable", "sandstone", "simplex", "spacelab", "united", "yeti"
    source_code: embed
    self_contained: true
    social: menu
---

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

## Column1

### Welcome to our Webinar

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

### 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")

```