Nothing
context("Test ari_stitch()")
if (ffmpeg_version_sufficient()) {
res = ffmpeg_audio_codecs()
if (is.null(res)) {
fdk_enabled = FALSE
} else {
fdk_enabled = grepl("fdk", res[ res$codec == "aac", "codec_name"])
}
} else {
fdk_enabled = FALSE
}
if (fdk_enabled) {
audio_codec = "libfdk_aac"
} else {
audio_codec = "ac3"
}
test_that("ari_stitch() can combine audio and images into a video", {
skip_on_cran()
# should work without polly
temp_dir <- tempdir()
for (i in 1:3) {
jpeg(file.path(temp_dir, paste0("plot", i, ".jpg")))
plot(1:5 * i, 1:5, main = i)
dev.off()
}
sound <- replicate(
3,
tuneR::Wave(round(rnorm(88200, 127, 20)),
samp.rate = 44100, bit = 16))
graphs <- file.path(temp_dir, paste0("plot", 1:3, ".jpg"))
video <- file.path(temp_dir, "output.mp4")
on.exit(walk(c(graphs, video), unlink, force = TRUE), add = TRUE)
ari_stitch(graphs, sound, output = video,
audio_codec = audio_codec, verbose = 2)
expect_true(file.size(video) > 50000)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.