表单提交时出现 rvest 错误

Question

我想从以下网页抓取数据：

https://swgoh.gg/u/zozo/collection/180/emperor-palpatine/

当我想访问它时，该网站需要我登录。

这是我的代码：

library(rvest)

url <- 'https://swgoh.gg/u/zozo/collection/180/emperor-palpatine/'
session <- html_session(url)

https://swgoh.gg/accounts/login/?next=/u/zozo/collection/180/emperor-palpatine/

状态：200

类型：文本/html；字符集=utf-8

尺寸：2081

form <- html_form(read_html(url))[[1]]

'' (POST .)

'csrfmiddlewaretoken'：aFuZy6Pxjg10MqdZjis9vjgojDCxa3QT

'用户名'：

'密码':

'

filled_form <- set_values(form,
                          username = "myusername",
                          password = "mypassword")
(result<-submit_form(session, filled_form))

虽然我的用户名和密码在我正常浏览时有效，但运行最后一行后出现以下错误：

错误：找不到可能的提交目标。

我已经在网上搜索了一个没有成功的解决方案。

编辑：@Mr Flick 提出的解决方案成功了。不幸的是，我收到以下警告消息：

使用“”提交

警告信息：

在 request_POST(session, url = url, body = request$values, encode => request$encode, : 禁止 (HTTP 403)。

result 给出：

https://swgoh.gg/accounts/login/

状态：403

类型：文本/html；字符集=utf-8

尺寸：989

Answer 1

rvest 用来确定如何提交表单的代码似乎出错了。它没有将通用“按钮”识别为提交按钮。在这种情况下，您可以使用

form$fields[[4]]$type <- "button"
filled_form <- set_values(form,
                          username = "myusername",
                          password = "mypassword")
submit_form(session, filled_form)