curlとかwgetだと一行だろうけどRでやりたい。
リファラでアクセス制限をかけている場合のPDFコンテンツの取得の一例を以下に示す。
add_headersでリファラを設定してGETした後、バイナリデータとして書き出せば良い。
library("httr")
u <- "目的とするURL"
res <- GET(u, config=add_headers(`Referer`="求められているリファラ"))
res_pdf <- content(res)
writeBin(res_pdf, "hoge.pdf")
