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

TEST the token

• No token? return to prior file

# prep for GET
if (!exists("api")) api <- get_api_codes()

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


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


# what is this?
httr::modify_url(
                       base_url, 
                       query = api_opts, 
                       httr::config(token = auth.code))

# WORKS!!!!
r  <- httr::GET(base_url, query = api_opts, httr::config(token= auth.code))
r
r  <- httr::GET(base_url, query = api_opts)
r
stop_for_status(r)
httr::content(r)
str(httr::content(r))

STOP HERE more examples, see 00070 or other files

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