Catch warnings in .ps.graphics.createDevice() (#34)

* .ps.graphics.createDevice() turns warnings from grDevices::png() into errors

* annotate error

Author: romainfrancois

crates/ark/src/lsp/modules/public/graphics.R

@@ -40,10 +40,15 @@ setHook("before.grid.newpage", function(...) {
 
     # Create the graphics device.
     # TODO: Use 'ragg' if available?
-    grDevices::png(
-        filename = plotsPath,
-        type = type,
-        res = res
+    withCallingHandlers(
+        grDevices::png(
+            filename = plotsPath,
+            type = type,
+            res = res
+        ),
+        warning = function(w) {
+            stop("Error creating graphics device: ", conditionMessage(w))
+        })
     )
 
     # Update the device name + description in the base environment.