Improve sizing of screenshot to closely match others

quarto-dev · Oct 3, 2024 · 6b493ae · 6b493ae
1 parent 55a92c5
commit 6b493ae
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 5 deletions.
diff --git a/docs/gallery/websites/website-m.canouil.dev_quarto-extensions.png b/docs/gallery/websites/website-m.canouil.dev_quarto-extensions.png
diff --git a/docs/gallery/websites/website-mickael.canouil.fr.png b/docs/gallery/websites/website-mickael.canouil.fr.png
diff --git a/tools/gallery-screenshot.R b/tools/gallery-screenshot.R
@@ -17,9 +17,12 @@ if (xfun::file_ext(image_path) != "png") {
   stop("First argument must be a .png image path to create.")
 }
 url <- args[2]
+width <-  if (is.na(args[3])) 1440 else as.numeric(args[3])
+height <- if (is.na(args[4])) 900 else as.numeric(args[4])
+message("==> Creating screenshot of ", url, " and saving to ", image_path)
+png <- webshot2::webshot(url, image_path, vwidth = width, vheight = height)
+if (Sys.which("optipng") != "") {
+  message("==> Shrinking image with optipng")
+  webshot2::shrink(png)
+}
 
-# taking the size from previous image
-example <- "docs/gallery/dashboards/housing-market-dashboard.png"
-if (!is.na(args[3])) example <- args[3]
-infos <- magick::image_read(example)  |> magick::image_info()
-webshot2::webshot(url, image_path, vwidth = infos$width, vheight = infos$height)