fix print method, closes #64

Author: Enchufa2

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: errors
 Type: Package
 Title: Uncertainty Propagation for R Vectors
-Version: 0.4.4
+Version: 0.4.4.1
 Authors@R: c(
     person("Iñaki", "Ucar", email="[email protected]",
       role=c("aut", "cph", "cre"), comment=c(ORCID="0000-0001-6403-5550")),

NEWS.md

@@ -1,3 +1,7 @@
+# errors devel
+
+- Fix `print()` method, which now correctly returns the object invisibly (#64).
+
 # errors 0.4.4
 
 - Improve `cbind` arg name deparsing.

R/print.R

@@ -116,10 +116,10 @@ print.errors <- function(x, ...) {
     if (length(err) > 5L)
       e <- paste(e, "...")
     cat("Errors: ", e, "\n", sep = "")
-    x <- drop_errors(x)
-    NextMethod()
+    x_next <- drop_errors(x)
+    print(x_next, ...)
   } else {
     cat(format(x, ...), "\n", sep="")
-    invisible(x)
   }
+  invisible(x)
 }

tests/testthat/test-print.R

@@ -65,3 +65,10 @@ test_that("error formatting works properly", {
   expect_equal(format(x), c("0.0(1)e12", "1.0(1)e12"))
   expect_equal(format(x, digits=2), c("0.00(10)e12", "1.00(10)e12"))
 })
+
+test_that("print method returns the object invisibly", {
+  x <- set_errors(1:4, seq(0.1, 0.4, 0.1))
+
+  expect_output(x1 <- print(x))
+  expect_identical(x, x1)
+})