e <- new.env()
e$a <- function() self
as_bandicoot_oop(e,
..class.. = "test",
..type.. = "test",
..instantiated.. = FALSE,
register = TRUE,
in_place = TRUE)
e
e$a()
Run the code above in your browser using DataLab