fix: correct issue w/ integer size values

Also add progress bar to sp_dir_info
elipousson · Nov 8, 2023 · 622268e · 622268e
1 parent c4df2d0
commit 622268e
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/R/sp_dir.R b/R/sp_dir.R
@@ -129,7 +129,7 @@ sp_dir_info <- function(path = NULL,
   )
 
   if (is_installed("fs")) {
-    item_list[["size"]] <- fs::as_fs_bytes(item_list[["size"]])
+    item_list[["size"]] <- fs::as_fs_bytes(as.double(item_list[["size"]]))
 
     item_list[["type"]] <- factor(
       vapply(
@@ -159,10 +159,10 @@ sp_dir_info <- function(path = NULL,
   }
 
   dir_item_list <- lapply(
-    dir_name,
-    function(x) {
+    cli::cli_progress_along(dir_name),
+    function(i) {
       sp_dir_info(
-        x,
+        dir_name[[i]],
         drive = drive,
         info = info,
         full_names = full_names,