From 98bb1357169684fa168115712cb6584bee96414a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fran=C3=A7ois=20Pelletier?= <francois@francoispelletier.org>
Date: Wed, 11 Aug 2021 23:02:34 -0400
Subject: [PATCH] remplacer png par jpg

---
 exemple_mosaique_r_imagemagick.R | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

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)