Fix tests

pbs-assess · Oct 21, 2024 · c4e2e9e · c4e2e9e
1 parent c8e59db
commit c4e2e9e
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/utils.R b/R/utils.R
@@ -74,6 +74,7 @@ is_dfo <- function() {
 # }
 
 factor_bin_clean <- function(x, bins, clean = TRUE) {
+
   out <- bins[findInterval(x, bins, rightmost.closed = TRUE)]
   max_char <- max(nchar(out))
   ndec <- ndecimals(out)
@@ -119,8 +120,9 @@ factor_clean <- function(x) {
 }
 
 ndecimals <- function(x) {
+
   ndec <- nchar(lapply(strsplit(as.character(x),
-                                options("OutDec")),
+                                paste0("\\", options("OutDec"))),
                        \(x) x[2]))
 
   if (!all(is.na(ndec))) {