Как заставить универсальную функцию R наследовать класс ее входных данных?

#r #class #inheritance #r-s3 Вопрос: Пусть следующий код: x <- 1:5 class(x) <- "bar" foo <- function(x) { UseMethod("foo") } foo.bar <- function(x) { y <- max(x) return(y) } Я…