# NOT RUN {
# typical case
myfun <- function(x_i, y_i) { x_i + y_i}
o <- generateWrapperObject(myfun)
print(o)
# <environment: 0x0000021d7abd9710>
# attr(,"class")
# [1] "WrapperObject" "environment"
ls(o)
# [1] "removeEllipsisName" "self"
# }
Run the code above in your browser using DataLab