Description Usage Arguments Details Value See Also Examples
Wrapper for ffmpeg video operations. Permits flexible filtering.
1 2 3 4 5 6 7 8 9 10 11 12 |
image.dir |
character; directory containing images to stitch. |
out.dir |
character; directory in which to store video. |
vid.name |
character; file name to be given video (should not include file extension). |
overwrite |
logical; should path described by vid.name be overwritten if it exhists. |
qual |
numeric; the quality of the video rendered from 1-100%. Defaults to 50%. |
vid.ext |
character; video type to output. mp4 currently works best. |
frame.rate |
numeric; video frame rate in fps. |
raw |
logical; encodes a raw AVI video with the "rawvideo" codec. |
filt |
character; video filter that should be applied to ffmpeg operation. See https://ffmpeg.org/ffmpeg-filters.html. |
silent |
logical; should output of |
Assumes images are appended with a numeric sequence beginning with "_".
Outputs a video of name "video.name+vid.ext".
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | #make some spiralled images and video
dir.create(paste0(tempdir(),"/images")) #make a directory to store images
a <- 2
b <- 3
theta <- seq(0,10*pi,0.01)
r <- a + b*theta
df <- data.frame(x=r*cos(theta), y=r*sin(theta)) # Cartesian coords
every.i <- 30
for(i in seq(1,length(theta),30)) {
jpeg(paste0(tempdir(),"/images/image_",sprintf("%03d",which(i==seq(1,length(theta),30))),".jpg"))
with(df[1:i,],plot(x,y,xlim=range(df$x),ylim=range(df$y),col="red"))
dev.off()
}
images.to.video2(image.dir=paste0(tempdir(),"/images"),
vid.name="spiral",out.dir=tempdir(),
frame.rate=5,qual=100,silent=TRUE,overwrite=TRUE)
file.exists(paste0(tempdir(),"/spiral.mp4"))
#clean up
unlink(paste0(tempdir(),"/images"),recursive=TRUE)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.