Arquivo para produção de relatórios automáticos

gapminder_automatico_child.Rmd

---
title: "Untitled"
output: pdf_document
---

```{r, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)

# Dados do looping:
x     <- nested_gapminder$data[[i]]
title <- nested_gapminder$year[[i]]
```

## Resultados em `r title`

```{r, echo=F}
# Obter resultados
results <- analise_gapminder(x, title)
```

### Dados do Brasil

```{r, echo=F}
results$brazil %>% kable()
```

### Gráfico com resumo dos resultados do modelo ajustado:

```{r, echo=F}
results$grafico_geral_regressao
```

### Comportamento dos dados por Continente

```{r, echo=F}
results$grafico_por_continente
```

### Avaliando melhor países acima da média

```{r, fig.height=9, echo=F}
results$grafico_zoom_acima_media
```

### Avaliando melhor países abaixo da média

```{r, fig.height=9, echo=F}
results$grafico_zoom_abaixo_media
```