Do not show message if GS is installed on Windows

See #398
ropensci · Jul 20, 2024 · 407dba3 · 407dba3
1 parent 92d9111
commit 407dba3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/edit.R b/R/edit.R
@@ -65,7 +65,7 @@ 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') ==  ""){
+  if(is.character(path) && grepl("\\.pdf$", path) && Sys.which('gs') ==  "" && !file.exists('C:\\Program Files\\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")){