R を使用して、この Web ページで入手できる収入ダイナミクスのパネル調査ファイルのダウンロードを自動化しようとしています。これらのファイルのいずれかをクリックすると、ユーザーはこのログイン/認証ページに移動します。認証後、Web ブラウザで簡単にファイルをダウンロードできます。残念ながら、以下のコードは認証を維持していないようです。Login.aspx ページの Chrome を調べてみましたが (ここで説明されているように)、すべての正しい値を渡していると思われる場合でも、認証を維持しているようには見えません。それが終わったかどうかは気にしませんhttr
Headers
httr
RCurl
または、R内で動作するものが欲しいので、このスクリプトのユーザーにファイルを手動または完全に別のプログラムでダウンロードさせる必要はありません。これに対する私の試みの 1 つを以下に示しますが、うまくいきません。どんな助けでも大歓迎です。ありがとう!!:D
require(httr)
values <-
list(
"ctl00$ContentPlaceHolder3$Login1$UserName" = "you@email.com" ,
"ctl00$ContentPlaceHolder3$Login1$Password" = "somepassword" ,
"ctl00$ContentPlaceHolder3$Login1$LoginButton" = "Log In" ,
"_LASTFOCUS" = "" ,
"_EVENTTARGET" = "" ,
"_EVENTARGUMENT" = ""
)
POST( "http://simba.isr.umich.edu/u/Login.aspx?redir=http%3a%2f%2fsimba.isr.umich.edu%2fZips%2fZipMain.aspx" , body = values )
resp <- GET( "http://simba.isr.umich.edu/Zips/GetFile.aspx" , query = list( file = "1053" ) )