capital B

krlmlr · krlmlr · commit 86d1cd19e239 · 2017-11-29T09:39:23.000+01:00
- Use `B` instead of `b` as unit.
diff --git a/R/format.R b/R/format.R
@@ -34,7 +34,7 @@ is_vector_s3.blob <- function(x) TRUE
 blob_size <- function(x, digits = 3, trim = TRUE, ...) {
   x <- vapply(x, length, numeric(1))
 
-  units <- c("kb", "Mb", "Gb", "Tb")
+  units <- c("kB", "MB", "GB", "TB")
   power <- min(floor(log(abs(x), 1000)), length(units))
   if (power < 1) {
     unit <- "B"
diff --git a/tests/testthat/test-format.R b/tests/testthat/test-format.R
@@ -35,9 +35,9 @@ test_that("similar sizes", {
   expect_format_equal(
     format(x),
     c(
-      "blob[1 kb]",
-      "blob[2 kb]",
-      "blob[4 kb]"
+      "blob[1 kB]",
+      "blob[2 kB]",
+      "blob[4 kB]"
     )
   )
 })
