Fix spell check pdf

ropensci · Dec 13, 2017 · 7cb8133 · 7cb8133
1 parent 74bde57
commit 7cb8133
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/R/check-files.R b/R/check-files.R
@@ -92,6 +92,13 @@ spell_check_file_plain <- function(path, format, dict){
   spell_check_plain(text, dict = dict)
 }
 
+spell_check_file_pdf <- function(path, format, dict){
+  lines <- pdftools::pdf_text(path)
+  words <- hunspell::hunspell_parse(lines, format = format, dict = dict)
+  text <- vapply(words, paste, character(1), collapse = " ")
+  spell_check_plain(text, dict = dict)
+}
+
 #' @useDynLib spelling, .registration = TRUE
 #' @importFrom Rcpp sourceCpp
 spell_check_file_roxygen <- function(path, dict, global_options = list()) {