# NOT RUN {
#make a video with animation package
# }
# NOT RUN {
fun <- function(){
y <- sin(1:50)
x <- 1:50
for(i in 1:50) {
plot(x[i],y[i],col="red",xlim=c(0,50),ylim=range(y))
animation::ani.pause()
}
}
animation::saveVideo(fun(),video.name=paste0(tempdir(),"/wave.mp4"),interval = 0.2)
#reduce the image images to 200 px wide maintaining aspect ratio
#notice the spaces at the beginning/end of string
filt.red <- " -vf scale=200:-1 "
c <- " -c:v libx264 "
dir.create(paste0(tempdir(),"/images"))
vid.to.images2(vid.path=paste0(tempdir(),"/wave.mp4"),
out.dir=paste0(tempdir(),"/images"),filt=filt.red,codec=NULL)
#see the images in the "images" directory
list.files( paste0(tempdir(),"/images"))
#clean up
unlink(paste0(tempdir(),"/images"),recursive=TRUE)
# }
Run the code above in your browser using DataLab