Fix spell check pdf

Author: jeroen

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()) {