Bug fixing for replace_keys

AbrJA · Sep 29, 2023 · a77d728 · a77d728
1 parent cc969e6
commit a77d728
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/R/KeywordProcessor.R b/R/KeywordProcessor.R
@@ -177,6 +177,7 @@ KeywordProcessor <- R6::R6Class(
     replace_keys = function(sentences) {
       if (is.null(self$attrs$trie)) stop("Create a trie dictionary first")
       stopifnot(is.character(sentences), length(sentences) > 0)
+      if (self$attrs$ignore_case) sentences <- tolower(sentences)
       replaceKeys(self$attrs$trie, sentences, self$attrs$chars, self$attrs$id)
     }
     #-----------------------------------------------------------------