---- PURPOSE ---- given ALL playlists, return complete list of videos ----------------
knitr::opts_chunk$set(echo = TRUE, comment=" ##", error=TRUE, collapse=TRUE) load_all()
Retrieve previously stored playlists (see rmd/011_ ...)
x <- readRDS(here("data", "playlists.RDS")) x
if (!exists("api")) api <- get_api_codes() if (!exists("l")) l <- get_typical_values() base_url <- "https://www.googleapis.com/youtube/v3/playlistItems"
Auth_code
old <- auth.code auth.code <- getOption("auth.code") auth.code
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.