EMAIL <- new_class(class_name = "EMAIL")
email <- EMAIL$instantiate
register_method(EMAIL, ..init.. = function(address) self$address = address)
register_method(EMAIL, ..len.. = function() nchar(self$address))
patrick <- email('patrick@test.com')
len(patrick)
Run the code above in your browser using DataLab