rvest::submit_form()-类型为';外部PTR';不可再附加
我正试图通过rvest提交表单,但在最后的rvest::submit_form()-类型为';外部PTR';不可再附加,r,tidyverse,rvest,httr,rlang,R,Tidyverse,Rvest,Httr,Rlang,我正试图通过rvest提交表单,但在最后的submit\u form()步骤中遇到了问题 问题是有点难显示可复制,因为它隐藏在密码后面。我不确定最好的方式来表明这一点,但这里是一般的要点 我可以使用以下方法获得表格 library(rvest) library(dplyr) url <- "http://probabilistic-footy.monash.edu/~footy/cgi-bin/presentTips.cgi.pl" params <- l
submit\u form()
步骤中遇到了问题
问题是有点难显示可复制,因为它隐藏在密码后面。我不确定最好的方式来表明这一点,但这里是一般的要点
我可以使用以下方法获得表格
library(rvest)
library(dplyr)
url <- "http://probabilistic-footy.monash.edu/~footy/cgi-bin/presentTips.cgi.pl"
params <- list(
name = user,
passwd = pass,
round = 8,
comp = "normal")
sess <- httr::POST(present_tips_url, body = params,
encode = "form")
5: stopifnot(is.request(req), inherits(handle, "curl_handle"))
4: request_perform(req, hu$handle$handle)
3: httr::POST(url, x$config, ..., handle = x$handle)
2: request_POST(session, url = url, body = request$values, encode = request$encode,
...)
1: submit_form(sess, form_unfilled)
但是,当我尝试使用submit\u form
提交此表单时,我得到以下错误
submit_form(sess, form_filled)
#> Submitting with '.submit'
#> Error: object of type 'externalptr' is not subsettable
我还尝试根据一些其他问题更新.submit
字段的类型和值,但这没有帮助。我也尝试过提交原始的未填写表单,但我得到了相同的错误
form_filled$fields$.submit$type <- "submit"
form_filled$fields$.submit$value <- url
submit_form(sess, form_filled)
#> Submitting with '.submit'
#> Error: object of type 'externalptr' is not subsettable
submit_form(sess, form_unfilled)
#> Submitting with '.submit'
#> Error: object of type 'externalptr' is not subsettable
有人能告诉我一个我可以在这里尝试的方向吗?我想知道这是否是因为单选按钮字段(例如,game1
)重复出现,但我无法找到删除它们的方法
submit_form(sess, form_filled)
#> Submitting with '.submit'
#> Error: object of type 'externalptr' is not subsettable
form_filled$fields$.submit$type <- "submit"
form_filled$fields$.submit$value <- url
submit_form(sess, form_filled)
#> Submitting with '.submit'
#> Error: object of type 'externalptr' is not subsettable
submit_form(sess, form_unfilled)
#> Submitting with '.submit'
#> Error: object of type 'externalptr' is not subsettable
5: stopifnot(is.request(req), inherits(handle, "curl_handle"))
4: request_perform(req, hu$handle$handle)
3: httr::POST(url, x$config, ..., handle = x$handle)
2: request_POST(session, url = url, body = request$values, encode = request$encode,
...)
1: submit_form(sess, form_unfilled)