fixed case-sensitivity for filenames

2019-10-31 13:51:04 -05:00 · 2019-10-31 13:51:04 -05:00 · 852e549f70
parent 6579b552ca
commit 852e549f70
1 changed files with 2 additions and 1 deletions
--- a/ocrMangle.R
+++ b/ocrMangle.R
@ -15,7 +15,7 @@ tesseract_download("deu")  # German


 # get list of JPG & JPEG image files
-imagelist <- list.files(path = "images/", pattern = ".jp")
+imagelist <- list.files(path = "images/", pattern = ".jp|.JP")


 # setup table for OCRed text
@ -58,4 +58,5 @@ write.csv(ocrText,
          paste0("ocrText-",
                 gsub("\\s+|:", "", Sys.time()),
                 ".csv"),
+          na = "",
          row.names = F)