diff --git a/exemple_mosaique_r_imagemagick.R b/exemple_mosaique_r_imagemagick.R index e38dc9d..5244255 100644 --- a/exemple_mosaique_r_imagemagick.R +++ b/exemple_mosaique_r_imagemagick.R @@ -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)