add the / to the key if necessary

dsidavis · May 18, 2019 · 8eee0e2 · 8eee0e2
1 parent 7e10880
commit 8eee0e2
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/Rqpdf/R/info.R b/Rqpdf/R/info.R
@@ -5,6 +5,11 @@ function(file, key)
     file = path.expand(file)
     if(!file.exists(file))
         stop("no such file ", file)
+
+    # keys start with a / and if we omit this we get NA back.
+    # So we add it for the caller if it is not there.
+    if(!grepl("^/", key))
+        key = paste0("/", key)
 
     .Call("R_get_pdf_info_val", file, as.character(key))
 }