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

---- PURPOSE ---- |
----------------

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

To construct GET, need url and config.
Config holds headers, user_agent, token, etc.

.base_url  <- "http://httpbin.org" 
.url  <- "http://httpbin.org/get"

# compare , 2nd is what we want
httr::GET(url = .base_url)
httr::GET(url = .base_url, path="/get")


# add header do this:
httr::GET (url = .url, add_headers(name = "jim")) 



# verbose?  
args(httr::verbose)
# function (data_out = TRUE, data_in = FALSE, info = FALSE, ssl = FALSE) 

# To Review request
httr::GET (url = .url, add_headers(name = "jim"), verbose(data_in=T), token=NULL) 

# query? use named list
httr::GET (url = .url, add_headers(name = "jim"), query = list(x="one", y="two") )



# NOT recommended: httr::config()
#
# INSTEAD:
.config  <- httr::add_headers(name="jim")
.config

## WORKS
httr::GET(url=.url, config=.config) 
httr::GET(url=.url, httr::add_headers(name="jim"))
httr::GET(url=.url, config = list(headers = c(name="jim")))


## does not WORK
httr::GET(url=.url, config = list(headers = httr::add_headers(name="jim")))


## ERRORs
httr::GET(url=.url, config=httr::add_headers(name="jim"))
httr::GET(url=.url, config=httr::config(header = httr::add_headers(name="jim")))

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