R/ari_burn_subtitles.R

In seankross/ari: Automated R Instructor

#' Burn Subtitles into a video
#'
#' @note This needs \code{ffmpeg} that was compiled with
#' \code{--enable-libass} as per
#' \url{https://trac.ffmpeg.org/wiki/HowToBurnSubtitlesIntoVideo}
#'
#' @param video Video in \code{mp4} format
#' @param srt Subtitle file in \code{srt} format
#' @param verbose print diagnostic messages.  If > 1,
#' then more are printed
#'
#' @return Name of output video
ari_burn_subtitles <- function(video, srt, verbose = FALSE) {
  ffmpeg <- ffmpeg_exec(quote = TRUE)
  if (verbose > 0) {
    message("Burning in Subtitles")
  }
  command <- paste(
    ffmpeg, "-y -i", video, paste0("-vf subtitles=", srt),
    video
  )

  if (verbose > 0) {
    message(command)
  }
  res <- system(command)
  if (res != 0) {
    warning("Result was non-zero for ffmpeg")
  }

  return(video)
}