fix error in printing of backup queue when dry run is activated

Author: s-fleck

R/BackupQueue.R

@@ -99,7 +99,14 @@ BackupQueue <- R6::R6Class(
           dd,
           c(paste(nrow(dd), "files total"), sum(as.integer(dd[, "size"])))
         )
-        dd[, "size"] <- pad_left(fmt_bytes(dd[, "size"]))
+
+        if (DRY_RUN$active){
+          dd[, "size"] <- pad_left(fmt_bytes(dd[, "size"], na = "<dry run>"))
+        } else {
+          dd[, "size"] <- pad_left(fmt_bytes(dd[, "size"]))
+        }
+
+
         dd[, "file"] <- pad_right(dd[, "file"])
         assert(nrow(dd) >= 3)
         sel <- 2:(nrow(dd) - 1)

R/utils.R

@@ -13,17 +13,23 @@ first <- function(x){
 
 
 fmt_bytes <- function(
-  x
+  x,
+  na = "<NA>"
 ){
   x <- as.numeric(x)
 
   readablifiy <- function(.x){
+    if (is.na(.x) || is.null(.x)){
+      return(na)
+    }
+
     for (unit in c("B", "KiB", "MiB", "GiB", "TiB")){
-      if (max(abs(.x)) < 1024 || unit == "TiB")
+      if (max(abs(.x), na.rm = TRUE) < 1024 || unit == "TiB")
         break
       else
         .x <- .x / 1024
     }
+
     return(paste(round(.x, 1), unit))
   }