better error msg if no poppler

Author: mwmclean

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: RefManageR
-Version: 0.14.19
+Version: 0.14.20
 Title: Straightforward 'BibTeX' and 'BibLaTeX' Bibliography Management
 Authors@R: person(c("Mathew", "W."), "McLean", role = c("aut", "cre"),
     email = "[email protected]")

R/ReadPDFs.R

@@ -51,7 +51,9 @@ ReadPDFs <- function (path, .enc = 'UTF-8', recursive = TRUE,
                       use.crossref = TRUE, use.metadata = TRUE,
                       progress = FALSE) {
   if (!nzchar(Sys.which("pdfinfo")))
-     stop("poppler does not seem to be installed")
+      stop(gettextf("poppler does not seem to be installed.\n%s\n%s",
+                    "ReadPDFs requires the `pdfinfo` utility from Poppler PDF be installed.",
+                    "See http://poppler.freedesktop.org/"))
   path <- file.path(path[1])
   if (!file.exists(path))
       stop("Specified path does not exist")

inst/NEWS.md

@@ -1,4 +1,4 @@
-Changes in Version 0.14.19 (2017-07-26)
+Changes in Version 0.14.20 (2017-07-27)
 --------------------------------------------------------
 
 NEW FEATURES