0
プライベートGitHubリポジトリからcsvファイルをダウンロードして、現在の環境にロードします。私は単純にread_csv("raw_git_url")のスクリプトが公開され、raw_git_urlがコピーされて貼り付けられてfilename.csv?token=AHh_HT3Aetc....のままになり、私のトークン番号が公開されないようにしたいのです。htthを使用してプライベートGitHubリポジトリからcsvファイルをロード
代わりに、私はGitHub認証トークンを持っていて、それを.Renvironファイルとして私の作業ディレクトリに入れました。
このように、ディスク/ワーキング・ディレクトリにファイルを書き込む：
library(httr)
url <- "https://raw.githubusercontent.com/username/privatereponame/master/dataname.csv"
GET(url, write_disk("mynew.csv", overwrite=TRUE))
が、私はコピーを書くためにしたくない - ただ、現在の環境で利用可能なCSVファイルを持っています。私は明白な何かを欠いていますかwrite_disk....〜readr::read_csvコマンドを変更しても機能しません。
私はハックのことを行うことができます - このような生のコンテンツにアクセス：
x=GET(url, authenticate(Sys.getenv("GITHUB_PAT1"), ""))
enc<-stringi::stri_enc_detect(content(x, "raw"))
content(x, "text", encoding = enc[[1]]$Encoding[1])
を...そしてCSVファイルにテキストを変換するには、いくつかのスクリプトを書いて....が、これはあまりにも長い間ったらしい感じています。
x=GET(url, authenticate(Sys.getenv("GITHUB_PAT1"), ""))
content(x, type="text/csv")
content()セットMIMEタイプでtype引数を使用する：