Use unlist()/relist() strategy

3x faster than the previous commit
epiverse-trace · Jul 27, 2024 · 7a23c84 · 7a23c84
1 parent 53ab635
commit 7a23c84
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/numberize.R b/R/numberize.R
@@ -27,10 +27,10 @@ digits_from <- function(text, lang = "en") {
   }
 
   words <- strsplit(text, "\\s+")
-  digits <- lapply(words, function(w) {
-    base_numbers[match(w, base_numbers[[lang]]), "digit"]
-  })
-  digits
+
+  # It's faster to unlist()/relist() than looping over the list
+  digits <- base_numbers[match(unlist(words), base_numbers[[lang]]), "digit"]
+  relist(digits, words)
 }
 
 # ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~