rvest set_values复选框错误

时间:2018-07-06 19:45:56

标签: r web-scraping rvest

我正在尝试使用rvest提交表单,然后抓取结果。

该表单具有多个复选框(名称不同),默认情况下未选中这些复选框,但是我无法弄清楚如何在选中一个或多个复选框的情况下提交表单。

在下面的示例中,我想使用set_values'fh_diab'设置为选中,然后提交表单。我尝试在RHS上使用和不使用引号将'fh_diab'设置为TRUE,'true','checked','1',但是没有任何效果。

当我抓取数据时,返回的结果是24.5%,在选中'fh_diab'的情况下返回的结果应该是40.9%。

library(rvest)
url <- "https://qdiabetes.org/index.php"
page <- html_session(url)
form <- html_form(page)
form
form[[2]] <- set_values(form[[2]],'age'='75','sex'='1','ethnicity'='6','smoke_cat'='1','height'='160','weight'='80','fh_diab'=TRUE)
session <- submit_form(page,form[[2]])
table <- session %>% html_nodes("table")
table[[12]] %>% html_table()

我不确定此问题是否与此处的PR https://github.com/hadley/rvest/pull/132有关。但这似乎还没有解决。

感谢您的帮助。谢谢。

0 个答案:

没有答案