TEST <- new_class(class_name = "TEST")
register_method(TEST, ..str.. = function() "test")
test <- TEST$instantiate(dist = "uniform", prm = list(a = 1, b = 2))
test$..str..()
# Use method `..str..` from BASE class
use_method(test, BASE$..str..)()
Run the code above in your browser using DataLab