minor refactor of ambiguous() using suggestion from @Bisaloo

epiverse-trace · Oct 7, 2024 · 58e8534 · 58e8534
1 parent a3482f8
commit 58e8534
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/numberize.R b/R/numberize.R
@@ -79,7 +79,8 @@ ambiguous <- function(digits) {
   current_position <- digit_mappings[
     match(digits, digit_mappings[["digit"]]), "position"
   ]
-  next_position <- c(utils::tail(current_position, -1), NA) # move forward by 1
+  next_position <- c(current_position[-1], NA) # move forward by 1
+
   # returns true if consecutive positions are the same type e.g. unit, unit etc
   uncertain <- any(current_position == next_position, na.rm = TRUE)
   if (uncertain) {