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

Description Usage Arguments Details Value See Also Examples

View source: R/ffmpeg.R

Description

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

Usage

1
2
3
4
5
6
7
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

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#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.