Filter words that contain an @ symbol, fixes #9

Author: jeroen

NEWS

@@ -3,6 +3,7 @@
   - Enforce latest hunspell and libhunspell, which include updated dictionaries
   - Treat all input as UTF-8. Fixes some false positives on Windows
   - Ignore yaml front matter in markdown except for 'title', 'subtitle', and 'description'
+  - Markdown: filter words that contain an '@' symbol (citation key or email address)
   - Properly parse authors@R field for ignore list (issue #2)
   - Use tools::file_ext instead of knitr:::file_ext
 

R/check-files.R

@@ -81,6 +81,9 @@ spell_check_file_rd <- function(rdfile, dict){
 
 spell_check_file_md <- function(path, dict){
   words <- parse_text_md(path)
+
+  # Filter out citation keys, see https://github.com/ropensci/spelling/issues/9
+  words$text <- gsub("\\S*@\\S+", "", words$text, perl = TRUE)
   words$startline <- vapply(strsplit(words$position, ":", fixed = TRUE), `[[`, character(1), 1)
   bad_words <- hunspell::hunspell(words$text, dict = dict)
   vapply(sort(unique(unlist(bad_words))), function(word) {