calculateTiming <- function(script, audioDuration, codeDuration) {
duration <- as.numeric(script$shots[, "duration"])
ifelse(is.na(duration),
pmax(audioDuration, codeDuration),
duration)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.