fix 'length > 1 in coercion to logical'

ChrisMuir · Apr 23, 2022 · 4336ee6 · 4336ee6
1 parent 491d86d
commit 4336ee6
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/n_gram_merge.R b/R/n_gram_merge.R
@@ -82,7 +82,7 @@ n_gram_merge <- function(vect, numgram = 2, ignore_strings = NULL,
     edit_threshold <- NA
   }
   edit_threshold_missing <- is.na(edit_threshold)
-  if (!edit_threshold_missing && is.na(weight)) {
+  if (!edit_threshold_missing && any(is.na(weight))) {
     stop("param 'weight' must not be NA if 'edit_threshold'is not NA",
          call. = FALSE)
   }