-
Notifications
You must be signed in to change notification settings - Fork 0
/
gatilho.R
51 lines (48 loc) · 1.91 KB
/
gatilho.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
# 0. Setup inicial ##########
## Carrega bibliotecas
library(dplyr)
library(purrr)
library(quarto)
## Define nomes dos clubes e dos arquivos HTML que serão gerados
clubes <- dplyr::tibble(
times = c("América MG", "América RN", "Athletico PR",
"Atlético GO", "Atlético MG", "Avaí",
"Bahia", "Barueri", "Botafogo",
"Bragantino", "Ceará", "Chapecoense",
"Corinthians", "Coritiba", "Criciúma",
"Cruzeiro", "CSA", "Cuiabá",
"Figueirense", "Flamengo", "Fluminense",
"Fortaleza", "Goiás", "Grêmio",
"Guarani", "Internacional", "Ipatinga",
"Joinville", "Juventude", "Náutico",
"Palmeiras", "Paraná", "Ponte Preta",
"Portuguesa", "Santa Cruz", "Santo André",
"Santos", "São Caetano", "São Paulo",
"Sport", "Vasco da Gama", "Vitória"),
nomes = c("america-mg", "america-rn", "athletico-pr",
"atletico-go", "atletico-mg", "avai",
"bahia", "barueri", "botafogo",
"bragantino", "ceara", "chapecoense",
"corinthians", "coritiba", "criciuma",
"cruzeiro", "csa", "cuiaba",
"figueirense", "flamengo", "fluminense",
"fortaleza", "goias", "gremio",
"guarani", "internacional", "ipatinga",
"joinville", "juventude", "nautico",
"palmeiras", "parana", "ponte-preta",
"portuguesa", "santa-cruz", "santo-andre",
"santos", "sao-caetano", "sao-paulo",
"sport", "vasco-da-gama", "vitoria")
)
## Adiciona o tutorial
clubes <- clubes |>
dplyr::add_row(times = "time1", nomes = "time1")
# 1. Geração dos HTML ##########
## Gera um HTML para cada clube
purrr::pwalk(clubes, function(times, nomes) {
quarto::quarto_render(
input = "gerador.qmd",
execute_params = list(clube = times),
output_file = glue::glue("{nomes}.html")
)
})