Report parametrizzato (codice integrato)

NoteNota

Puoi scaricare qui il progetto RStudio in formato compresso con tutto il necessario per compilare sul tuo PC i report Quarto (codice R integrato, codice R esterno, report parametrico con codice R integrato, report parametrico con codice R esterno).

Sezione YAML di un report parametrico

Si può impostare un modello di template che poi può essere utilizzato per differenti valori di input sfruttando la sezione params dello YAML.

Ecco un semplice esempio in cui imposto due “variabili di ambiente”:

params: 
  paese: "Afghanistan"
  continente: "Americas"

In particolare, utilizzo di seguito:

• paese, per una rappresentazione grafica,
• continente, per una rappresentazione tabellare.

Esempio di un report parametrico (codice integrato)

La costruzione di un report segue le stesse regole viste per un report Quarto. Questo vale sia i report con codice integrato che con codice esterno utilizzato sfruttando la funzione read_chunk().

Carico i package utilizzati nel seguito del report:

library(tidyverse)
library(janitor)
library(gapminder)

e preparo la tabella dati:

gap_data <- clean_names(gapminder)

Le variabili di ambiente definite nello YAML sono accessibili nei chunk di codice (sia integrati che su file script esterni) sfruttando l’oggetto params:

# l'oggetto params è un oggetto di tipo lista
class(params)

[1] "list"

# ecco i nomi delle due variabili di ambiente definite nella lista params
names(params)

[1] "paese"      "continente"

# stampo a video l'intera lista
params

$paese
[1] "Afghanistan"

$continente
[1] "Americas"

# oppure i singoli componenti
params$paese

[1] "Afghanistan"

params$continente

[1] "Americas"

Costruisco una rappresentazione grafica sfruttando il valore archiviato in params$paese:

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

mentre utilizzo il valore in params$continent per stampare le informazioni relative a tre paesi casuali del continente:

gap_data |>
  filter(continent == params$continent) |>
  slice_sample(n = 3)

# A tibble: 3 × 6
  country            continent  year life_exp     pop gdp_percap
  <fct>              <fct>     <int>    <dbl>   <int>      <dbl>
1 Paraguay           Americas   1962     64.4 2009813      2148.
2 Dominican Republic Americas   1977     61.8 5302800      2682.
3 Jamaica            Americas   1952     58.5 1426095      2899.