R/timing.R

Defines functions calculateTiming

calculateTiming <- function(script, audioDuration, codeDuration) {
    duration <- as.numeric(script$shots[, "duration"])
    ifelse(is.na(duration),
           pmax(audioDuration, codeDuration),
           duration)
}
pmur002/director documentation built on Feb. 18, 2021, 10:23 p.m.