---
title: "Teste"
author: "TEste"
date: "`r format(Sys.time(), '%d %B, %Y')`"
output:
  rmdformats::material:
    highlight: kate
    self_contained: true
    thumbnails: true
    gallery: true
    fig_width: 11
    fig_height: 6
    df_print: kable
---




```{r inputs, echo=FALSE, results='hide', warning=FALSE, message=FALSE}
library(tidyverse)
library(kableExtra)

sinal<-TRUE

```


```{r echo=FALSE, results='asis', eval= sinal}
cat("# Teste 01")
```



``` {r echo=FALSE, results = 'asis', eval = sinal }

cat("### Teste 02")


plot(mtcars$mpg)


```


``` {r echo=FALSE, results = 'asis', eval = sinal }

cat("### Teste 02")


plot(mtcars$mpg)


```



``` {r echo=FALSE, results = 'asis', eval = sinal }

cat("### Teste 03")

mtcars %>% kable(row.names = TRUE,format.args = list(decimal.mark = '.', big.mark = ",")) %>%
          kable_styling(position = "center", full_width = FALSE,bootstrap_options = c("striped", "hover","condensed"), font_size = 14) %>% row_spec(0,bold = T, color = 'white',background = 'black')


```