我正在寻找代码,它可以告诉我特定图标驻留在html表的哪个单元格中。下面是我正在做的工作:
u <- "http://www.transfermarkt.nl/lionel-messi/leistungsdaten/spieler/28003/saison/2014/plus/1"
doc <- rvest::html(u)
tab <- rvest::html_table(doc, fill = TRUE)[[6]]
专栏“Pos”指定球员在场上的位置。其中有些有一个额外的图标。我可以看到这些图标出现在页面上如下:
rvest::html_nodes(doc, ".kapitaenicon-table")
但这并不能告诉我他们在哪里。我希望我的代码返回图标出现在表中“Pos.Column”的第2、10、11、27行中。我怎么能这么做?
发布于 2015-05-31 13:45:31
更多的rvest
和XPath魔法可以为您提供索引:
library(rvest)
library(magrittr)
library(XML)
pg <- html("http://www.transfermarkt.nl/lionel-messi/leistungsdaten/spieler/28003/saison/2014/plus/1")
pg %>%
html_nodes("table") %>%
extract2(6) %>%
html_nodes("tbody > tr") %>%
sapply(function(x) {
length(xpathSApply(x, "./td[8]/span[@class='kapitaenicon-table icons_sprite']")) == 1
}) %>% which
## [1] 2 10 11 27
这将得到第6个表,提取tr
s,然后通过它们查找包含正确span
/class
的第8 td
。如果XPath搜索失败,它将返回一个空列表,因此您可以使用长度来确定哪些行中有图标,哪些行没有。
这是:
pg %>%
html_nodes(xpath="//table[6]/tbody/tr/td[8]") %>%
xmlSApply(xpathApply, "boolean(./span[@class='kapitaenicon-table icons_sprite'])") %>%
which
同样有效,它会更紧一些(而且更快)。它使用XPath boolean
操作来测试是否存在。如果您在节点上没有其他操作要执行,则这是更复杂的操作。
这是一个xml2
版本,尽管我必须相信在xml2
中必须有更好的方法来实现这一点。
library(xml2)
library(magrittr)
pg2 <- read_html("http://www.transfermarkt.nl/lionel-messi/leistungsdaten/spieler/28003/saison/2014/plus/1")
pg2 %>%
xml_find_all("//table[6]/tbody/tr/td[8]") %>%
as_list %>%
sapply(function(x) {
inherits(try(xml_find_one(x, "./span"), silent=TRUE), "xml_node")
}) %>% which
更新
对于版本0.1.0.9000
of xml2
,我必须执行以下操作:
pg2 %>% xml_find_all("//table") %>%
as_list %>%
extract2(6) %>%
xml_find_all("./tbody/tr/td[8]") %>%
as_list %>%
sapply(function(x) {
inherits(try(xml_find_one(x, "./span"), silent=TRUE), "xml_node")
}) %>% which
不应该是这样的,我有提交了一个错误报告。
Session info -------------------------------------------------------------------------
setting value
version R version 3.2.0 (2015-04-16)
system x86_64, darwin13.4.0
ui RStudio (0.99.441)
language (EN)
collate en_US.UTF-8
tz America/New_York
Packages -----------------------------------------------------------------------------
package * version date source
curl * 0.5 2015-02-01 CRAN (R 3.2.0)
devtools * 1.7.0 2015-01-17 CRAN (R 3.2.0)
magrittr 1.5 2014-11-22 CRAN (R 3.2.0)
Rcpp * 0.11.5 2015-03-06 CRAN (R 3.2.0)
rstudioapi * 0.3.1 2015-04-07 CRAN (R 3.2.0)
xml2 0.1.0 2015-04-20 CRAN (R 3.2.0)
https://stackoverflow.com/questions/30556130
复制相似问题