如何提取$ $兒童HTML內容從XMLDocumentContent對象提前

道歉，我相信這是簡單，但我想不出我做錯了什麼..

除了其他事情

，該代碼..

study.name <- 'NLSY79' 
library(XML) 
library(httr) 
sub.study <- paste0("https://www.nlsinfo.org/investigator/servlet1?get=SUBSTUDIES&study=" , study.name) 
study.html <- GET(sub.study) 
content(study.html) 
study.block <- htmlParse(study.html , asText = TRUE)

..gives我..

$children$html 
<html> 
<body> 
    <p> 
    false 
    <select id="thesubstudies" onchange="onSubstudyChanged(this);"> 
    <option value="-1" selected="selected">(Choose One)</option> 
    <option value="343.06">NLSY79 (1979-2010)</option> 
    </select> 
    </p> 
</body> 
</html>

我只是想快速（自動）的方式來提取「343.06」

謝謝！

來源

2013-09-30 Anthony Damico

您可以使用xpathSApply提取元素，你想

xpathSApply(study.block, "//option") 
# [[1]] 
# <option value="-1" selected="selected">(Choose One)</option> 
# [[2]] 
# <option value="343.06">NLSY79 (1979-2010)</option>

和他們（xmlValue或xmlAttrs，根據上下文）應用功能。

xpathSApply(study.block, "//option", function(u) xmlAttrs(u)["value"]) 
# value value 
# "-1" "343.06"

來源

2013-09-30 17:27:58

完美！謝謝：） –

您還可以使用xmlGetAtrr

xpathSApply(study.block, "//option", xmlGetAttr, "value") 
[1] "-1"  "343.06"

或

xpathSApply(study.block, "//option[not(@selected)]", xmlGetAttr, "value") 
[1] "343.06"

來源

2013-09-30 22:49:42

如何提取$ $兒童HTML內容從XMLDocumentContent對象提前

回答

相關問題