---
title: "Transport"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    theme: darkly
    social: menu
    story_board: True
    source_code: embed
---

```{r setup, include=FALSE}
libraries=c("flexdashboard","MASS","lattice","DT")
lapply(libraries,require,character.only=TRUE)
```




# Home {.tabset}
### chart A
```{r}
str(quine)
```

# Data Analytics {.tabset}

# EDA {.tabset}

### chart C
```{r}
value=sum(quine$Days)
valueBox("count(Gender)",value,icon = "fa fa-user")
```

### chart D

```{r}
datatable(quine,extensions='Buttons',options=list(dom="Bfrtip",buttons=c('copy','print','pdf','csv')))
```