In jimrothstein/yt_api: R functions to use Google Youtube API

 vim:linebreak:nowrap:nospell:cul tw=78 fo=tqlnr foldcolumn=3

---

Spaces, no Tabs

title: Template for .Rmd output: pdf_document: latex_engine: xelatex toc: TRUE toc_depth: 1 fontsize: 12pt geometry: margin=0.5in,top=0.25in

---

/home/jim/.config/nvim/templates/skeleton.Rmd othercomments

---

knitr::opts_chunk$set(echo = TRUE,  
                                            comment="      ##",  
                                            error=TRUE, 
                                            collapse=TRUE) 

library(jimTools) 

HERE -- What is playlistId for "Watch Later" ?

l <- get_typical_yt()
maxResults  <- l$maxResults
playlistId  <- l$playlistId
video_id = l$videoId
base_url  <- "https://www.googleapis.com/youtube/v3/playlists"

api_opts <- list(part = "snippet",
                 id = video_id,
                 maxResults = maxResults,
                 fields="items(snippet(title))",
                 key = api$api_key)

#DELETE https://www.googleapis.com/youtube/v3/playlists
r <- httr::GET(base_url, query = api_opts) 
httr::content(r)

***

```r 
knitr::knit_exit() 

/newpage

file <- "" 
file  <- basename(file) 
dir <-"rmd"

jimTools::ren_pdf(file,dir)
jimTools::ren_github(file, dir)

jimrothstein/yt_api documentation built on Nov. 5, 2022, 8:05 p.m.