account for the presence of numeric values in a vector of characters

epiverse-trace · Apr 8, 2024 · 6645e34 · 6645e34
1 parent 8317b2f
commit 6645e34
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/tests/testthat/test-numberize.R b/tests/testthat/test-numberize.R
@@ -88,3 +88,11 @@ test_that("non digit word returns NA", {
   res <- numberize("epiverse", lang = "en")
   expect_true(is.na(res))
 })
+
+test_that("vector with number and words and NA is properly handled", {
+  res <- numberize(
+    c(17, "dix", "soixante-cinq", "deux mille vingt-quatre", NA),
+    lang = "fr"
+  )
+  expect_identical(res, c(17, 10, 65, 2024, NA))
+})