avoid overflow

krlmlr · krlmlr · commit 5ea75a83dcbc · 2017-06-17T05:51:02.000+02:00
- Size of very large blobs is displayed correctly.
diff --git a/R/format.R b/R/format.R
@@ -32,7 +32,7 @@ obj_sum.blob <- function(x) {
 is_vector_s3.blob <- function(x) TRUE
 
 blob_size <- function(x, digits = 3, trim = TRUE, ...) {
-  x <- vapply(x, length, integer(1))
+  x <- vapply(x, length, numeric(1))
 
   power <- min(floor(log(abs(x), 1000)), 4)
   if (power < 1) {
