1as_override_size_sum <- function(x) {
2  structure(x, class = "override_size_sum")
3}
4
5local_override_size_sum <- function(frame = caller_env()) {
6  local_methods(
7    .frame = frame,
8    size_sum.override_size_sum = function(x, ...) {
9      "SC"
10    }
11  )
12}
13