从网页中提取地理坐标/数字

Question

我有一些代码可以尝试从一个网站收集一些信息：

我可以使用(感谢这个post)连接和读取HTML数据：

library(RSelenium)
library(rvest)
rD <- rsDriver(browser="firefox", port=4536L)
remDr <- rD[["client"]]
#navigate 
url = 'https://www.fotocasa.es/es/comprar/viviendas/a-bana/todas-las-zonas/l'
remDr$navigate(url)
#accept cookies
remDr$findElement(using = "xpath",'/html/body/div[1]/div[4]/div/div/div/footer/div/button[2]')$clickElement()

#click on Zona
remDr$findElement(using = "xpath", '//*[@id="App"]/div[2]/div/div[2]/div[3]/div/div[1]/div')$clickElement()

# read html page
html_full_page = remDr$getPageSource()[[1]] %>% read_html()

我有点困在试图收集一份数据上。我运行以下命令，并希望从以下位置提取数字结果：

html_full_page %>% 
  html_nodes('.re-GeographicSearchNext-checkboxItem') %>% 
  html_nodes('label') 

{xml_nodeset (4)}
[1] <label class="sui-AtomCheckbox sui-AtomCheckbox--medium is-checked"><span class="sui-AtomIcon sui-AtomIcon--small sui-AtomIcon--currentColor"><span><svg viewbox="0 0 24 24"><path d="M19.2 5.4a1 1 0 0 1 1.669 1.095L ...
[2] <label class="re-GeographicSearchNext-checkboxItem-label" name="geoSearch-724,12,15,487,0,15007,0,0,0"><span class="re-GeographicSearchNext-checkboxItem-literal">A Baña</span><span class="re-GeographicSearchNext-ch ...
[3] <label class="sui-AtomCheckbox sui-AtomCheckbox--medium"><input type="checkbox" id="geoSearch-724,12,15,487,0,15056,0,0,0" name="geoSearch-724,12,15,487,0,15056,0,0,0" intermediate=""></label>
[4] <label class="re-GeographicSearchNext-checkboxItem-label" name="geoSearch-724,12,15,487,0,15056,0,0,0"><span class="re-GeographicSearchNext-checkboxItem-literal">Negreira</span><span class="re-GeographicSearchNext- ...

即数据的geosearch部分。

我试图从代码的这一部分获得以下内容：

1. -724,12,15,487,0,15007,0,0,0

1. -724,12,15,487,0,15056,0,0,0

[1] "<a class=\"re-GeographicSearchNext-checkboxItem re-GeographicSearchNext-checkboxItem--has-separator\" title=\"A Baña\" > href=\"/es/comprar/viviendas/a-bana/todas-las-zonas/l\"><div > class=\"sui-MoleculeCheckboxField\"><div class=\"sui-MoleculeField > sui-MoleculeField--inline sui-MoleculeField--inline-reverse > sui-MoleculeField--fullWidth\">\n<div > class=\"sui-MoleculeField-labelContainer\">\n<label > class=\"sui-AtomCheckbox sui-AtomCheckbox--medium\"><input > type=\"checkbox\" id=\"geoSearch-724,12,15,487,0,15007,0,0,0\" > name=\"geoSearch-724,12,15,487,0,15007,0,0,0\" > intermediate=\"\"></label><div > class=\"sui-MoleculeField-nodeLabelContainer\"><label > class=\"re-GeographicSearchNext-checkboxItem-label\" > name=\"geoSearch-724,12,15,487,0,15007,0,0,0\"><span > class=\"re-GeographicSearchNext-checkboxItem-literal\">A > Baña</span><span class=\"re-GeographicSearchNext-checkboxItem-count > re-GeographicSearchNext-checkboxItem-count-is-child\">17</span></label></div>\n</div>\n<div > class=\"sui-MoleculeField-inputContainer > sui-MoleculeField-inputContainer--aligned\"></div>\n</div></div></a>" > > [2] "<a class=\"re-GeographicSearchNext-checkboxItem re-GeographicSearchNext-checkboxItem--has-separator\" > title=\"Negreira\" > href=\"/es/comprar/viviendas/negreira/todas-las-zonas/l\"><div > class=\"sui-MoleculeCheckboxField\"><div class=\"sui-MoleculeField > sui-MoleculeField--inline sui-MoleculeField--inline-reverse > sui-MoleculeField--fullWidth\">\n<div > class=\"sui-MoleculeField-labelContainer\">\n<label > class=\"sui-AtomCheckbox sui-AtomCheckbox--medium\"><input > type=\"checkbox\" id=\"geoSearch-724,12,15,487,0,15056,0,0,0\" > name=\"geoSearch-724,12,15,487,0,15056,0,0,0\" > intermediate=\"\"></label><div > class=\"sui-MoleculeField-nodeLabelContainer\"><label > class=\"re-GeographicSearchNext-checkboxItem-label\" > name=\"geoSearch-724,12,15,487,0,15056,0,0,0\"><span > class=\"re-GeographicSearchNext-checkboxItem-literal\">Negreira</span><span class=\"re-GeographicSearchNext-checkboxItem-count > re-GeographicSearchNext-checkboxItem-count-is-child\">52</span></label></div>\n</div>\n<div > class=\"sui-MoleculeField-inputContainer > sui-MoleculeField-inputContainer--aligned\"></div>\n</div></div></a>"

Answer 1

这应该可以做到：

html_full_page %>% 
  html_nodes('.re-GeographicSearchNext-checkboxItem') %>% 
  html_nodes('label') %>% 
  html_attr("name") %>%
  gsub("geoSearch-", "", .) %>%
  na.omit()

# [1] "724,12,15,487,0,15007,0,0,0" "724,12,15,487,0,15056,0,0,0"
# attr(,"na.action")
# [1] 1 3
# attr(,"class")
# [1] "omit"