R/write_srt.R

Defines functions write_srt

#' @export
write_srt <- function(srt = NULL, f = NULL){
    sel <- lapply(srt, function(s) {
        c(s$id, s$times, s$text, "")
    })
    sel <- unlist(sel)
    writeLines(sel, con = f)
    invisible(NULL)
}
lbraglia/lbav documentation built on March 26, 2021, 2:02 a.m.