# NOT RUN {
format_type_sum(1)
pillar(1)
type_sum.accel <- function(x) {
structure("kg m/s^2", class = "type_sum_accel")
}
format_type_sum.type_sum_accel <- function(x) {
style_subtle(x)
}
accel <- structure(9.81, class = "accel")
pillar(accel)
# }
Run the code above in your browser using DataCamp Workspace