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

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

```

# Home {.tabset}
### chart A

```{r}
str(quine)
```

# Data analysis {.tabset}
### chart B
```{r}
histogram(quine$Days)
```

# 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 = "Bfrtrip",Buttons = c('copy', 'print', 'pdf', 'csv')))
```