fix: invisible return for print methods

R/CoverageExperiment.R

@@ -17,7 +17,7 @@
 #' summarization
 #' @param BPPARAM Passed to BiocParallel
 #' @param ... Passed to the relevant method
-#' @return An `CoverageExperiment` object
+#' @return A `CoverageExperiment` object
 #'
 #' @import GenomicRanges
 #' @import GenomeInfoDb

R/aggregate.R

@@ -18,6 +18,7 @@
 #' @examples 
 #' data(ce)
 #' aggregate(ce, bin = 10)
+
 setMethod("aggregate", signature(x = "CoverageExperiment"), 
     function(x, bin = 1, ...) {
         m0 <- matrix(

R/show.R

@@ -98,9 +98,11 @@ print.CoverageExperiment <- function (x, ..., n = NULL) {
             ncol(x)
         ) |> setNames("A CoverageExperiment-tibble abstraction")
         print(x)
+        return(invisible(x))
     }
     else {
         x
+        return(invisible(x))
     }
 }
 
@@ -128,9 +130,11 @@ print.AggregatedCoverage <- function (x, ..., n = NULL) {
             ncol(x)
         ) |> setNames("An AggregatedCoverage-tibble abstraction")
         print(x)
+        return(invisible(x))
     }
     else {
         x
+        return(invisible(x))
     }
 }