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

REF: http://www.opensecrets.org/api/?method=getLegislators&id=NJ&apikey=apikey

export token=$(Rscript -e "cat(Sys.getenv('OS_API_KEY'))")
echo $token

curl -s --data "id=NJ&apikey=$token" \
https://www.opensecrets.org/api/?method=getLegislators

{
file <- "slide_opensecrets.Rmd"
file  <- normalizePath(file)
file
}
rmarkdown::render(file)
rmarkdown::render(file, output_dir="~/Downloads/print_and_delete")