fixed case-sensitivity for filenames

This commit is contained in:
Kate Webbink 2019-10-31 13:51:04 -05:00 committed by GitHub
parent 6579b552ca
commit 852e549f70
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 2 additions and 1 deletions

View File

@ -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)