make other exported fxns use the new path

sckott · Aug 25, 2024 · 78f2f7d · 78f2f7d
1 parent 74cfe02
commit 78f2f7d
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 3 deletions.
diff --git a/R/pdimg_help.R b/R/pdimg_help.R
@@ -8,6 +8,6 @@
 #' pdimg_help()
 pdimg_help <- function() {
   pdfimages_exists()
-  z <- sys::exec_internal("pdfimages", "-help", error = FALSE)
+  z <- sys::exec_internal(pdimg_env$pdimages_path, "-help", error = FALSE)
   cat(rawToChar(z$stderr))
 }
diff --git a/R/pdimg_images.R b/R/pdimg_images.R
@@ -77,7 +77,7 @@ pdimg_image <- function(path, dir = NULL, ...) {
     dir <- file.path(dir, gsub(".pdf$", "", basename(path)), "img")
   }
   dir.create(dirname(dir), recursive = TRUE, showWarnings = FALSE)
-  res <- sys::exec_internal("pdfimages", c(..., path, dir),
+  res <- sys::exec_internal(pdimg_env$pdimages_path, c(..., path, dir),
     error = FALSE)
   err_chk(res)
   if (res$status != 0) {

diff --git a/R/pdimg_meta.R b/R/pdimg_meta.R
@@ -43,7 +43,8 @@ pdimg_meta_one <- function(path, ...) {
     warning("path '", path, "' does not exist", call.=FALSE)
     return(tibble::tibble())
   }
-  meta <- sys::exec_internal("pdfimages", c("-all", "-list", ..., path),
+  meta <- sys::exec_internal(
+    pdimg_env$pdimages_path, c("-all", "-list", ..., path),
     error = FALSE)
   err_chk(meta)
   txt <- rawToChar(meta$stdout)