R：ログインjavascriptフォーム

Question

私は実際に保護されたデータを掻き集めるためにこのサイト（http://bit.do）を記録しようとしています。

私はこのアプローチを前の質問で設立しましたが、うまくいきませんでした。

library(rvest) 
url  <-"http://bit.do/#login/admin" 
pgsession <-html_session(url) 

pgform <-html_form(pgsession)[[2]] 
filled_form <- set_values(pgform, 
        "username" = "username", 
        "password" = "password") 

submit_form(pgsession,filled_form) 

が、私は私はこの得た（pgform）を頭にしようとしたとき： $名 [1] "" $方法 を[1] "" $ URL NULL $のenctype [1をGET ] "フォーム" $フィールド を ''： ''： ''： ''： ''：サインアップ

私が期待したものとは全く異なっています。多分それはコードのためですか？私は知らない、これが私に与えることができる唯一の理由です。しかし、もしそれがjavascript（htmlの代わりに）にあるなら、私はどのようにして仕事をすることができますか？

Answer 1

あなたは他のリクエストでそのクッキーを使用し、その後クッキーを構築するための情報を取得する必要があります：

library(httr) 

POST(
    url = "https://inauth.insite.com.br/mod_perl/login.pl", 
    body = list(
    user_username = "YOUR_USERNAME", 
    user_password = "YOUR_PASSWORD", 
    lang = "en", 
    cookies = "no", 
    action = "chklogin", 
    app_id = "bit.do", 
    cookie_name = "InAuth-bitdo", 
    keep_logged_in_days = "5475" 
), 
    add_headers(
    `Referer` = "http://bit.d o/", 
    `Origin` = "http://bit.d o", 
    `X-Requested-With` = "XMLHttpRequest" 
) 
) -> res 

user_login_info <- content(res, as="parsed") 

GET(
    url = "https://bit.d o/admin", 
    add_headers(`Referer` = "http://bit.d o/"), 
    set_cookies(`InAuth-bitdo` = user_login_info$auth_cookie_value) 
) -> res 

NOTE !!!! dとob/cの間にスペースを入れなければならず、SOバリデーターは脳死です。

彼らは私が彼らがあなたの使用を期待していると思う有料APIを持っていますが、私は一目瞭然で分かるものからこの掻き取りを禁止していません。