Отправьте запрос POST с помощью пакета httr R

Я не могу понять, как имитировать то, что делает браузер, при отправке данных сервера через запрос POST. Ниже приведены соответствующие URL-адреса с объяснением ниже.

(1) http://kenpom.com/

(2) http://kenpom.com/register.php?frompage=1
<form id="login" method="POST" action="handlers/login_handler.php">
<label>E-mail </label><input type="text" name="email" />
<label>Password </label><input type="password" name="password" />
<input type="submit" name="submit" value="Login!" />

(3) http://kenpom.com/team.php?team=Rice

(1) домашняя страница (выберите страницу команды, когда вы не вошли в систему, перенаправляете → (2))

(2) страница входа в систему (перейдите на страницу с конкретной командой при успешном входе в систему)

(3) специальная страница для команды: например. Райс

url <- ("http://kenpom.com/team.php?team=Rice")

login <- list(
        email = "login",
        password = "password"
)

teampage <- POST(url, body = login)

Response [http://kenpom.com/register.php?frompage=1]
  Date: 2015-03-07 23:04
  Status: 200
  Content-Type: text/html
  Size: 7.45 kB
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<HTML>
<HEAD>
<LINK REL=stylesheet TYPE="text/css" HREF="css/rate.css?1414365416">
<TITLE>kenpom.com subscription</TITLE>

В конечном счете, вы хотите очистить какую-либо информацию, используя пакет rvest, но в итоге получите пустые результаты, пытаясь очистить: http://kenpom.com/register.php?frompage=1

Ответ 1

Попробуйте

library(httr)
login <- list(
  email = "login",
  password = "password",
  submit = "Login!"
)
res <- POST("http://kenpom.com/handlers/login_handler.php", body = login, encode = "form", verbose())
team <- GET("http://kenpom.com/team.php?team=Rice", verbose())