get_ytsubs <- function(q){
require(youtubecaption)
dcat <- get_caption(q)
(dcat2 <- c(dcat$text) %>% str_c(collapse = ", "))
# return results
return(dcat2)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.