#' @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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.