# NOT RUN {
balloon <- image(system.file("sample_img/balloon1.png", package = "Rvision"))
sum(balloon)
balloon_vid <- video(system.file("sample_vid/Balloon.mp4", package = "Rvision"))
img_list <- lapply(1:10, function(x) readNext(balloon_vid))
sum(img_list)
# }
Run the code above in your browser using DataLab