remplacer png par jpg

This commit is contained in:
François Pelletier 2021-08-11 23:02:34 -04:00
parent ca63b98dad
commit 98bb135716

View file

@ -42,8 +42,9 @@ image_read(nom.fichiers.images) %>%
tile = "5x5",
bg = "white") %>%
image_write(paste0(repertoire.res,
"montage_drawbook.png"),
format = "png")
"montage_drawbook.jpg"),
format = "jpg",
quality = 90)
# Images Sharp
@ -67,5 +68,6 @@ image_read(nom.fichiers.images) %>%
tile = "5x5",
bg = "black") %>%
image_write(paste0(repertoire.res,
"montage_sharp.png"),
format = "png")
"montage_sharp.jpg"),
format = "jpg",
quality = 90)