BASE$..init..
# Inherit from BASE
TEST <- new_class(BASE, class_name = "TEST")
# Override the `..init..` method
register_method(TEST, ..init.. = function(a) {self$x <- a})
# Build a `TEST` instance
test <- TEST$instantiate(a = 2)
test$x
Run the code above in your browser using DataLab