通过R中的下拉列表获取数据

通过R中的下拉列表获取数据,r,rvest,R,Rvest,我正在尝试从这个网站收集数据 (捷克语) 我需要检查“Okres”(地区)和“Obor”(专业化)的所有可能组合 我尝试了rvest,但似乎没有发现任何下拉列表,html_表单返回长度为0的列表 因此,由于我还是R的新手,我如何“要求”网页向我显示新的页面组合 多谢各位 JH我会使用以下方法: library(rvest) library(dplyr) library(tidyr) pg <- read_html("http://www.lkcr.cz/seznam-lekaru-42

我正在尝试从这个网站收集数据

(捷克语)

我需要检查“Okres”(地区)和“Obor”(专业化)的所有可能组合

我尝试了rvest,但似乎没有发现任何下拉列表,html_表单返回长度为0的列表

因此,由于我还是R的新手,我如何“要求”网页向我显示新的页面组合

多谢各位

JH

我会使用以下方法:

library(rvest)
library(dplyr)
library(tidyr)

pg <- read_html("http://www.lkcr.cz/seznam-lekaru-426.html")

obor <- html_nodes(pg, "select[name='filterObor'] > option")
obor_df <- data_frame(
  value=xml_attr(obor, "value"),
  option=xml_text(obor)
)

glimpse(obor_df)
## Observations: 115
## Variables: 2
## $ value  <chr> "", "16", "107", "17", "1", "19", "20", "21", "22", "29...
## $ option <chr> "", "alergologie a klinická imunologie", "algeziologie"...
okres <- html_nodes(pg, "select[name='filterOkresId'] > option")
okres_df <- data_frame(
  value=xml_attr(okres, "value"),
  option=xml_text(okres)
)

glimpse(okres_df)
## Observations: 78
## Variables: 2
## $ value  <chr> "", "3201", "3202", "3701", "3702", "3703", "3801", "37...
## $ option <chr> "", "Benešov", "Beroun", "Blansko", "Brno-město", "Brno...
库(rvest)
图书馆(dplyr)
图书馆(tidyr)
pg选项“)

okres_df我实际上是在问关于提交表格的问题,但我想我没有说清楚。谢谢你的代码,因为它帮了我很多。