feat: support for bytes and num inline formatting

DESCRIPTION

@@ -33,6 +33,7 @@ Suggests:
     htmlwidgets,
     knitr,
     methods,
+    prettyunits,
     processx,
     ps (>= 1.3.4.9000),
     rlang (>= 1.0.2.9003),

R/themes.R

@@ -252,7 +252,13 @@
       transform = function(x) format_inline(typename(x))
     ),
     span.or = list("vec-sep2" = " or ", "vec-last" = ", or "),
-    span.timestamp = list(before = "[", after = "]", color = "grey")
+    span.timestamp = list(before = "[", after = "]", color = "grey"),
+    span.bytes = list(
+      transform = function(x) format_pretty(x, "bytes")
+    ),
+    span.num = list(
+      transform = function(x) format_pretty(x, "num")
+    )
   )
 }
 
@@ -380,6 +386,19 @@
   }
 }
 
+format_pretty <- function(x, type = c("num", "bytes")) {
+  if (!requireNamespace("prettyunits", quietly = TRUE)) {
+    throw(cli_error(
+      "{.pgk prettyunits} is required for formatting numbers and bytes."
+    ))
+  }
+  type <- match.arg(type)
+  switch(type,
+    num = prettyunits::pretty_num(x),
+    bytes = prettyunits::pretty_bytes(x)
+  )
+}
+
 theme_create <- function(theme) {
   mtheme <- theme
   mtheme[] <- lapply(mtheme, create_formatter)