From 852e549f709c8066cbe5231a7d6a5aefe9d08ffb Mon Sep 17 00:00:00 2001
From: Kate Webbink <magpiedin@gmail.com>
Date: Thu, 31 Oct 2019 13:51:04 -0500
Subject: [PATCH] fixed case-sensitivity for filenames

---
 ocrMangle.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ocrMangle.R b/ocrMangle.R
index 155695b..07097db 100644
--- 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)
\ No newline at end of file