library(quarto)

quarto_render(
  input = "report-paese.qmd",
  output_file = "Ghana.html",
  execute_params = list(paese = "Ghana", continente = "Africa")
)


walk(c("Italy", "Spain", "France", "Austria"), 
     function(paese)
       quarto_render(
         input = "report-paese.qmd",
         output_file = paste0(paese, ".html"),
         execute_params = list(paese = paese, continente = "Europe")
       ))

paesi_continenti <- gapminder::gapminder |> 
  select(country, continent) |> 
  distinct() |> 
  slice_head(n = 7)

walk2(paesi_continenti$country, 
      paesi_continenti$continent,
      \(p, c)
        quarto_render(
          input = "report-paese.qmd",
          output_file = paste0(p, ".html"),
          execute_params = list(paese = p, continente = c)
        ))

quarto_render(
  input = "report-paese.qmd",
  output_file = "Italy.html",
  execute_params = list(paese = "Italy", continente = "Europe")
)

paesi <- c("Spain", "Italy", "Algeria", "Angola", "Cina", "India")
continenti <- c("Europe", "Europe", "Africa", "Africa", "Asia", "Asia")

out_uno <- map(.x = paesi, .f = \(x) paste0("Paese: ", x))
out_uno
