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