S3 subsetting overloading

s3subset.R

wrapped <- function(obj) {
  structure(obj, class = "wrapped")
}

`[[.wrapped` <- function(obj, x) {
  if (x == "predict") {
    .subset2(obj, x)
  } else {
    .subset2(obj, "model")[[x]]
  }
}

`$.wrapped` <- `[[.wrapped`

#> x <- wrapped(list(model = list(a=1,b=2), predict = function(...) print('predict')))
#> x$predict
#function(...) print('predict')
#> x$a
#[1] 1