# NOT RUN {
my_data <- list(a = 1,
add_to_a = function(value){
.my$a <- a + value
})
myDataObject <- list2inst(my_data)
myDataObject$a
myDataObject$add_to_a(20)
myDataObject$a
# }
Run the code above in your browser using DataLab