---
title: "Report gapminder"
author: "DV"
format: 
  html:
    echo: true
  docx:
    echo: false
  typst: default
execute:
  message: false
---

# Caricamento librerie e dati

I package per caricare ed elaborare il dataset [**gapminder**]{.underline} sono i seguenti:

```{r}
#| label: caricamento-package
#| echo: true
#| eval: true
library(tidyverse)
library(janitor)
library(gapminder)
library(knitr)
library(gt)
```

Mostriamo a video una stampa delle prime 5 righe della tabella, usando una stampa "brutale":

```{r}
slice(gapminder, 1:5)
```

Posso sfruttare la funzione kable del package knitr per ottenere una stampa più gradevole di un output tabellare:

```{r}
gapminder |> slice(1:5) |> kable()
```

{{< pagebreak >}}

# Creazione di una tabella di riepilogo

La seguente tabella riporta il valore dei tre indicatori disponibili in `gapminder` per i cinque continenti relativamente all'anno 2007:

```{r}
gapminder |> 
  filter(year == 2007) |> 
  group_by(continent) |> 
  summarise(across(.cols = c(lifeExp, pop, gdpPercap), .fns = mean)) |> 
  gt()
```

::: panel-tabset
## Scheda 1

Testo normale

## Scheda 2

```{r}
hist(rnorm(100))
```

## Scheda 3

```{r}
hist(rexp(100, rate = 1/10))
```

:::
