print invisibly returns the object (#636)

NEWS.md

@@ -13,6 +13,10 @@
 
 * `ui_add` and `srv_add` no longer exist as adding new filters is a part of `ui_active` and `srv_active`.
 
+### Miscellaneous
+
+* `print.teal_slice()` and `print.teal_slices()` now return object invisibly. 
+
 # teal.slice 0.5.1
 
 ### Bug fixes

R/teal_slice.R

@@ -233,6 +233,7 @@ format.teal_slice <- function(x, show_all = FALSE, trim_lines = TRUE, ...) {
 #'
 print.teal_slice <- function(x, ...) {
   cat(format(x, ...))
+  invisible(x)
 }
 
 

R/teal_slices.R

@@ -235,6 +235,7 @@ format.teal_slices <- function(x, show_all = FALSE, trim_lines = TRUE, ...) {
 #'
 print.teal_slices <- function(x, ...) {
   cat(format(x, ...), "\n")
+  invisible(x)
 }
 
 

tests/testthat/test-teal_slice.R

@@ -238,3 +238,8 @@ testthat::test_that(
     testthat::expect_type(shiny::isolate(tss[[1]]$choices), "character")
   }
 )
+
+testthat::test_that("print.teal_slice returns argument", {
+  fs <- teal_slice("data", "var")
+  testthat::expect_identical(print(fs), fs)
+})

tests/testthat/test-teal_slices.R

@@ -373,3 +373,10 @@ testthat::test_that("format.teal_slices prints count_type attribute if not empty
   ffs <- format(fs, show_all = TRUE)
   testthat::expect_true(!grepl("count_type", ffs))
 })
+
+testthat::test_that("print.teal_slices returns argument", {
+  fs1 <- teal_slice("data", "var1")
+  fs2 <- teal_slice("data", "var2")
+  fs <- teal_slices(fs1, fs2)
+  testthat::expect_identical(print(fs), fs)
+})