fix

easystats · Oct 18, 2024 · 732f909 · 732f909
1 parent 2c9032c
commit 732f909
Showing 1 changed file with 12 additions and 0 deletions.
diff --git a/R/utils.R b/R/utils.R
@@ -290,3 +290,15 @@
   # no double white space
   insight::trim_ws(msg)
 }
+
+
+.fuzzy_grep <- function (x, pattern, precision = NULL) {
+  if (is.null(precision)) {
+    precision <- round(nchar(pattern) / 3)
+  }
+  if (precision > nchar(pattern)) {
+    return(NULL)
+  }
+  p <- sprintf("(%s){~%i}", pattern, precision)
+  grep(pattern = p, x = x, ignore.case = FALSE)
+}