Do not cache 'ignore' words, fixes #30

Author: jeroen

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: hunspell
 Type: Package
 Title: High-Performance Stemmer, Tokenizer, and Spell Checker for R
-Version: 2.7
+Version: 2.7.9000
 Depends: R (>= 3.0.2)
 Author: Jeroen Ooms
 Maintainer: Jeroen Ooms <jeroen@berkeley.edu>

NEWS

@@ -1,3 +1,6 @@
+2.8
+  - Fix caching bug for 'ignore' argument in hunspell()
+
 2.7
   - Update bundled en_US / en_GB dictionaries from libreoffice extensions
   - Use Rcpp symbol registration / visibility

R/hunspell.R

@@ -94,8 +94,8 @@ hunspell <- function(text, format = c("text", "man", "latex", "html", "xml"),
   stopifnot(is.character(text))
   stopifnot(is.character(ignore))
   format <- match.arg(format)
-  dictionary <- dictionary(dict)
-  R_hunspell_find(dictionary, text, format, ignore)
+  dictionary <- dictionary(dict, add_words = ignore)
+  R_hunspell_find(dictionary, text, format, character())
 }
 
 #for backward compatiblity
@@ -233,8 +233,11 @@ print.dictionary <- function(x, ...){
 #' @param cache speed up loading of dicationaries by caching
 #' @param add_words a character vector of additional words to add to the dictionary
 dictionary <- function(lang = "en_US", affix = NULL, cache = TRUE, add_words = NULL){
-  if(inherits(lang, "dictionary"))
-    return(lang)
+  if(inherits(lang, "dictionary")){
+    if(!length(add_words))
+      return(lang)
+    lang <- hunspell_info(lang)$dict
+  }
   if(!isTRUE(cache))
     return(dictionary_internal(lang, affix, add_words))
   key <- digest::digest(list(lang, affix, add_words))