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

---

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

md_document:

html_document:

toc: true

toc_float: true

css: styles.css

---

/home/jim/code/pkg_yt_api/exclude/003_retrieve_one_video.R

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

library(jimTools)

if (!exists("api")) api <- get_api_codes()

# initial global values | set .httr_oauth
# don't want to keep typing this

l <- get_typical_values()
{
  maxResults  <- l$maxResults
  playlistId  <- l$playlistId
  video_id = l$videoId

}
base_url <- "https://www.googleapis.com/youtube/v3/videos"

this_is_junk()

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

r <- httr::GET(base_url, query = api_opts) 
httr::content(r)

knitr::knit_exit()

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