polarolouis/synapses-carousel
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Gestion petit MIA-PS
Some checks failed
ci/woodpecker/push/woodpecker Pipeline failed
Details

Browse source
This commit is contained in:
Louis 2025-07-08 14:48:27 +02:00
parent 79f3c39901
commit 69140abcf1
1 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
index.qmd
View file

@ -28,20 +28,21 @@ format:
```{r}
#| output: asis
img_files <- fs::dir_ls("images", glob="*")
back_files <- fs::dir_ls("background", glob="*")
img_files <- fs::dir_ls("images", glob = "*")
back_files <- fs::dir_ls("background", glob = "*")
quotes_list <- readLines("quotes.txt")
for (img in img_files) {
for (back in back_files){
for (quote in quotes_list){
cat("# ", quote, "{background-image='",back,"'}", "\n",
glue::glue("![]({img})"), "{fig-align='center' .r-stretch}\n\n",
sep = "")
}
}
for (back in back_files) {
for (quote in quotes_list) {
cat("# ", quote, " {background-image='", back, "' background-repeat='", ifelse(back == "background/miaps.png", "repeat", "no-repeat"), "' background-size='", ifelse(back == "background/miaps.png", "400px", "100%"), "'}", "\n",
glue::glue("![]({img})"), "{fig-align='center' .r-stretch}\n\n",
sep = ""
)
}
}
}