---
title: "Yearly Vehicle Data"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    theme: cosmo
    social: menu
    story_board: True
    source_code: embed
---

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


# Home {.tabset}

### Structure
---------------------------------------------------------------------------

```{r}
str(data)
```


# Histogram {.tabset}


### Year Histogram
---------------------------------------------------------------------------

```{r}
vehicle=as.integer(as.factor(Year))
hist(vehicle,col="darkslategray")
```

column{data-width=100}
---------------------------------------------------------------------------

### Histogram 2
---------------------------------------------------------------------------

```{r}
histogram(~Two.wheelers|Total.no..of.vehicles,col="cornflowerblue",main="Vehicle Data")
```

column{data-width=100}
---------------------------------------------------------------------------

### Histogram 3
---------------------------------------------------------------------------

```{r}
histogram(~Taxis|Cars,col="aqua",main="Vehicle Data")
```

# BoxPlot {.tabset}

### Boxplot
---------------------------------------------------------------------------

```{r}
boxplot(Year~Cars,col="cyan",main="Vehicle Data in BoxPlot",xlim=c(0,13),las=1)
```

### Boxplot 2
---------------------------------------------------------------------------

```{r}
boxplot(Taxis~Total.no..of.vehicles, col="wheat",main="plot 2",xlim=c(0,13),las=1)
```

# Download {.tabset}

### Chart E

```{r}
value=sum(Cars)
valueBox("count(cars)",value,icon="fa fa-user")
```


### Download
```{r}
DT::datatable(data,extensions="Buttons",options=list(dom="Bftrip",buttons=c("copy","print","pdf","csv")))
```