doing videos in R