images.to.video: Stitches images into a video file

In ckenaley/trackter: Automated Kinematic Analysis of Image Data

Description

Uses ffmpeg through the av package to stitch images into a video.

Usage

images.to.video(
  image.dir = NULL,
  out.dir = NULL,
  vid.name = NULL,
  overwrite = FALSE,
  ...
)

Arguments

image.dir	character; directory containing images to stitch.
out.dir	character; directory in which to store video.
vid.name	character; file name given to video including extension.
overwrite	logical; should path described by vid.name be overwritten if it exists.
...	other arguments to be passed to av::av_encode_video.

Details

Assumes images are appended with a numeric sequence.

Value

Outputs a video of name "video.name+vid.ext".

See Also

vid.to.images, encoding av_video_images.

Examples

#make some images

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.video(image.dir=paste0(tempdir(),"/images"),vid.name="spiral.mp4",out.dir=tempdir())

file.exists(paste0(tempdir(),"/spiral.mp4"))

#clean up
unlink(paste0(tempdir(),"/spiral.mp4"))
unlink(paste0(tempdir(),"/images"),recursive=TRUE)

ckenaley/trackter documentation built on Feb. 11, 2022, 6:43 a.m.