Give a hint about pdf reading

ropensci · Jul 18, 2024 · 9b391bf · 9b391bf
1 parent 494cc7c
commit 9b391bf
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/R/edit.R b/R/edit.R
@@ -65,6 +65,9 @@ image_read <- function(path, density = NULL, depth = NULL, strip = FALSE, coales
   density <- as.character(density)
   depth <- as.integer(depth)
   defines <- validate_defines(defines)
+  if(is.character(path) && grepl("\\.pdf$", path) && Sys.which('gs') ==  ""){
+    message("Ghostscript (gs) not found on the PATH.\nTry image_read_pdf() to read PDF using pdftools instead.")
+  }
   image <- if(isS4(path) && methods::is(path, "Image")){
     convert_EBImage(path)
   } else if(inherits(path, "nativeRaster") || (is.matrix(path) && is.integer(path))){