diff --git a/R/CoverageExperiment.R b/R/CoverageExperiment.R index 9f77c07..aea1dd0 100644 --- a/R/CoverageExperiment.R +++ b/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 diff --git a/R/aggregate.R b/R/aggregate.R index 34c28ae..c4c472c 100644 --- a/R/aggregate.R +++ b/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( diff --git a/R/show.R b/R/show.R index c645d80..252feff 100644 --- a/R/show.R +++ b/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)) } } diff --git a/man/CoverageExperiment.Rd b/man/CoverageExperiment.Rd index 56d26d1..548ad14 100644 --- a/man/CoverageExperiment.Rd +++ b/man/CoverageExperiment.Rd @@ -169,7 +169,7 @@ information} \item{BPPARAM}{Passed to BiocParallel.} } \value{ -An \code{CoverageExperiment} object +A \code{CoverageExperiment} object } \description{ \code{CoverageExperiment} objects are instantiated using the \code{CoverageExperiment()}