wip

EhrmannS · Apr 10, 2024 · f31146e · f31146e
1 parent d58d2ad
commit f31146e
Showing 1 changed file with 8 additions and 6 deletions.
diff --git a/R/bf_encode.R b/R/bf_encode.R
@@ -89,13 +89,15 @@ bf_encode <- function(registry){
 
   tempBits <- separate_wider_position(data = tempBits, cols = "int", widths = widths)
 
+  .toInt <- function(x){
+    temp <- str_split(x, "")
+    map(seq_along(temp), function(y){
+      sum(+(rev(temp[[y]]) == "1") * 2^(seq(temp[[y]])-1))
+    }) |> unlist()
+  }
+
   out <- tempBits |>
-    mutate(across(everything(), function(x){
-      temp <- str_split(x, "")
-      map(seq_along(temp), function(y){
-        sum(+(rev(temp[[y]]) == "1") * 2^(seq(temp[[y]])-1))
-      }) |> unlist()
-    }))
+    mutate(across(everything(), .toInt))
 
   return(out)