powered by
set_class()
foo <- function(x) x^2 %>% set_class(c("foo", class(.)))
Run the code above in your browser using DataLab