# NOT RUN {
## Specialised vapply
vlapply(logical(10), identity)
vzapply(complex(10), identity)
## For R6 objects
objs <- list(ooplah$new(), ooplah$new())
# Public field
vcapply(objs, "oop")
# Public method
vcapply(objs, "exclaim", "ARGH")
vcapply(objs, "hello")
vnapply(objs, "generate", 1)
# Active binding
vlapply(objs, "logically")
# }
Run the code above in your browser using DataLab