---
title: "Untitled"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: scroll
    storyboard: TRUE
    social: menu
    theme: darkly
    source_code: embed
---

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

# Home {.tabset}

### Chart A

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

# Data Analysis 

### Chart B

```{r}
histogram(quine$Days)
```


# E.D.A 
### 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')))
```