使用 rvest 进行网页抓取时出现错误 500

Question

我正在尝试使用以下代码进行网络抓取，但收到以下警告消息：

在 request_POST(session, url = url, body = request$values, encode = request$encode, : 内部服务器错误 (HTTP 500)

我做错了什么？

图书馆（rvest）：

sisben <-html_session("https://wssisbenconsulta.sisben.gov.co/dnp_sisbenconsulta/dnp_sisben_consulta.aspx")

form <- html_form(sisben)[[1]]

fillform <- set_values(form,"ddlTipoDocumento" = "Cédula de Ciudadanía", "tboxNumeroDocumento" = "1234")

sis <- submit_form(session=sisben, form=fillform)

Answer 1

您究竟想抓取哪些数据？对我来说，代码看起来就像您与页面交互（填写表单并提交），但我没有看到您用来抓取数据的任何 rvest 代码。

关于您的错误： 查看 html 源代码，您似乎只提交了“Tipo de Documento”的标签，而不是正确的内部值（编号）

<option value="-1">Seleccione...</option>
<option value="1">C&#233;dula de Ciudadan&#237;a</option>
<option value="3">C&#233;dula de Extranjer&#237;a</option>
<option selected="selected" value="4">Registro Civil</option>
<option value="2">Tarjeta de Identidad</option>

使用选项值作为输入时我没有收到错误：

fillform <- set_values(form,"ddlTipoDocumento" = "1", "tboxNumeroDocumento" = "1234")
sis <- submit_form(session=sisben, form=fillform)

导致输出：

使用“tboxNumeroDocumento”提交

也许这已经是您正在寻找的东西了？