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

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

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


## @knitr media_continente
gap_data |>
  filter(continent == params$continent) |>
  summarise(mean(life_exp))

