R/dplyr_compatibility.R

In insightsengineering/hermes: Preprocessing, analyzing, and reporting of RNA-seq data

# filter-data.frame ----

#' @rdname filter
setMethod(
  f = "filter",
  signature = signature(object = "data.frame"),
  definition = function(object, ...) {
    # We just forward to the `dplyr` generic function, so that the user
    # can still filter data frames.
    dplyr::filter(object, ...)
  }
)

# filter-ts ----

#' @rdname filter
setMethod(
  f = "filter",
  signature = signature(object = "ts"),
  definition = function(object, ...) {
    # We just forward to the `dplyr` generic function, which in this case
    # will throw a meaningful error and point to `stats::filter`.
    dplyr::filter(object, ...)
  }
)

# rename-data.frame ----

#' @rdname rename
setMethod(
  f = "rename",
  signature = signature(x = "data.frame"),
  definition = function(x, ...) {
    # We just forward to the `dplyr` generic function, so that the user
    # can still rename data frames.
    dplyr::rename(x, ...)
  }
)