tests/testthat/helper-size-sum.R

as_override_size_sum <- function(x) {
  structure(x, class = "override_size_sum")
}

local_override_size_sum <- function(frame = caller_env()) {
  local_methods(
    .frame = frame,
    size_sum.override_size_sum = function(x, ...) {
      "SC"
    }
  )
}

Try the pillar package in your browser

Any scripts or data that you put into this service are public.

pillar documentation built on July 29, 2021, 9:06 a.m.