precision fix

bips-hb · Nov 13, 2023 · f25f26e · f25f26e
1 parent 9647aad
commit f25f26e
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/forde.R b/R/forde.R
@@ -129,7 +129,8 @@ forde <- function(
   if (any(!factor_cols)) {
     prec[!factor_cols] <- sapply(which(!factor_cols), function(j) {
       if (any(grepl('\\.', x[[j]]))) {
-        out <- max(nchar(sub('.*[.]', '', x[[j]])))
+        tmp <- x[grepl('\\.', x[[j]]), j]
+        out <- max(nchar(sub('.*[.]', '', tmp)))
       } else {
         out <- 0L
       }