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

Column {data-width=550}
-----------------------------------------------------------------------

### Uma tabela

```{r}
# mtcars %>% 
#   head(15) %>% 
#   DT::datatable()

mtcars %>%
  head(15) %>%
  knitr::kable()
```

### Uma outra tabela

```{r}
ggplot2::mpg %>% 
  head(15) %>% 
  knitr::kable()
```

### Uma outra tabela repetida

```{r}
ggplot2::mpg %>% 
  head(15) %>% 
  knitr::kable()
```

Column {data-width=450}
-----------------------------------------------------------------------

### Um gráfico

```{r}
hist(mtcars$mpg)
```

### Outro gráfico

```{r}
boxplot(mpg ~ cyl, data = mtcars)
```

