2

我正在尝试生成一个 Web 表单以允许我抓取数据。

library(rvest)

url <- "https://iemweb.biz.uiowa.edu/pricehistory/pricehistory_SelectContract.cfm?market_ID=214"

pg.form <- html_form(html(url))

返回

pg.form
[[1]]
<form> '<unnamed>' (POST PriceHistory_GetData.cfm)
 <input HIDDEN> 'Market_ID': 214
 <select> 'Month' [1/12]
 <select> 'Year' [0/2]
 <input SUBMIT> '': Get Prices

我的错误是认为我需要为MonthandYear字段设置值，但这是一个错误

filled_form <- set_values(pg.form,
                          Month = "8",
                          Year = "0")

返回 Error: Unknown field names: Month, Year

如何使用rvest在网络表单中设置值？

4

2 回答 2

4

从您的输出来看，pg.form实际上是一个列表形式而不是单个形式。要访问第一个表单，请执行

set_values(pg.form[[1]], Month="8")

或者你可以做

pg.form <- html_form(html(pg.session))[[1]]

反而。

于 2015-05-10T01:30:43.197 回答
0 
lnk3 <- 'http://data.nowgoal.com/history/handicap.htm' #this website content includes the odds price
> sess <- html_session(lnk3)
> f0 <- sess %>% html_form
> f1 <- set_values(f0[[2]], matchdate=dateID[1], companyid1=list(c(3,8,4,12,1,23,24,17,31,14,35,22)))
Warning message:
Setting value of hidden field 'companyid1'. 
> s <- submit_form(sess, f1)
Submitting with 'NULL'

试图提交一个隐藏字段但声音不起作用的表单，提交时使用“NULL”

于 2015-08-21T08:10:34.250 回答