Add PDF support

jeroen · jeroen · commit 74bde5767902 · 2017-12-13T14:01:31.000+01:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -21,6 +21,7 @@ Imports:
     knitr,
     roxygen2,
     Rcpp
+Suggests: pdftools
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 6.0.1
 LinkingTo: 
diff --git a/NEWS b/NEWS
@@ -0,0 +1,5 @@
+1.1
+  - Add support for pdf files via pdftools
+
+1.0
+  - Initial release
diff --git a/R/check-files.R b/R/check-files.R
@@ -31,6 +31,8 @@ spell_check_file_one <- function(path, dict){
     return(spell_check_file_plain(path = path, format = "html", dict = dict))
   if(grepl("\\.(xml)$",path, ignore.case = TRUE))
     return(spell_check_file_plain(path = path, format = "xml", dict = dict))
+  if(grepl("\\.(pdf)$",path, ignore.case = TRUE))
+    return(spell_check_file_pdf(path = path, format = "text", dict = dict))
   return(spell_check_file_plain(path = path, format = "text", dict = dict))
 }
 

-Original file line number
+Diff line change
@@ @@ -0,0 +1,5 @@ @@
 +1.1
 +  - Add support for pdf files via pdftools
++
 +1.0
 +  - Initial release
Original file line number	Diff line number	Diff line change
`@@ -31,6 +31,8 @@ spell_check_file_one <- function(path, dict){`
`31`	`31`	`return(spell_check_file_plain(path = path, format = "html", dict = dict))`
`32`	`32`	`if(grepl("\\.(xml)$",path, ignore.case = TRUE))`
`33`	`33`	`return(spell_check_file_plain(path = path, format = "xml", dict = dict))`
	`34`	`+ if(grepl("\\.(pdf)$",path, ignore.case = TRUE))`
	`35`	`+ return(spell_check_file_pdf(path = path, format = "text", dict = dict))`
`34`	`36`	`return(spell_check_file_plain(path = path, format = "text", dict = dict))`
`35`	`37`	`}`
`36`	`38`