## @knitr package_usati
library(tidyverse)
library(janitor)
library(gapminder)

## @knitr prepara_tabella
gap_data <- clean_names(gapminder)

## @knitr grafico_paese
gap_data |>
  filter(country == params$paese) |>
  ggplot() +
  aes(x = year, y = life_exp) +
  geom_line()

## @knitr paesi_casuali_continente
gap_data |>
  filter(continent == params$continent) |>
  slice_sample(n = 3)


