fix formatting of numeric-like objects with length != 1, closes #88

- Fix error when formatting numeric values with a `"class"` attribute with length != 1 (#88).

DESCRIPTION

@@ -21,6 +21,7 @@ Imports:
     utf8 (>= 1.1.3)
 Suggests: 
     knitr (>= 1.19),
+    lubridate,
     testthat (>= 2.0.0)
 Roxygen: list(markdown = TRUE, roclets = c("collate", "namespace", "rd", "pkgapi::api_roclet"))
 RoxygenNote: 6.0.1.9000

R/shaft.R

@@ -88,7 +88,7 @@ pillar_shaft.logical <- function(x, ...) {
 pillar_shaft.numeric <- function(x, ..., sigfig = getOption("pillar.sigfig", 3)) {
   if (!is.null(attr(x, "class"))) {
     ret <- format(x)
-    return(new_pillar_shaft_simple(ret, width = get_extent(ret), align = "left"))
+    return(new_pillar_shaft_simple(ret, width = get_max_extent(ret), align = "left"))
   }
 
   dec <- format_decimal(x, ..., sigfig = sigfig)

tests/testthat/out/lubridate.txt

@@ -0,0 +1,4 @@
+<S4: Duration>
+1s            
+2s            
+3s            

tests/testthat/test-format_lubridate.R

@@ -0,0 +1,7 @@
+context("format_lubridate")
+
+test_that("can output durations", {
+  v <- lubridate::as.duration(1:3)
+  x <- pillar(v)
+  expect_pillar_output(xp = v, filename = "lubridate.txt")
+})