Rselenium - 모든 드롭 다운 목록 옵션 값을 긁는 방법

Question

드롭 다운 목록의 모든 옵션 값을 Rselenium을 사용하여 긁을 수 있습니까? 페이지 소스의

샘플 :

<select name="main$ddArea" onchange="javascript:setTimeout(&#39;__doPostBack(\&#39;main$ddArea\&#39;,\&#39;\&#39;)&#39;, 0)" id="main_ddArea" class="groupTextBox"> 
<option selected="selected" value="95182">Area 1</option> 
<option value="95183">Area 2</option> 
<option value="95184">Area 3</option> 
<option value="95185">Area 4</option> 
<option value="95186">Area 4</option> 
</select> 

결과 원하는 요소가 각 값을 갖는 벡터이다. 예를 들어, = C를 ('95182', '95183', '95184', '95185'은 "95,186")

숫자의 문자열을 가져도 예상 작업이 예 요소로 분할 될 수있는 것처럼 값 , strsplit 사용.

'value'또는 'option'이있는 getElementAttribute()가 작동하지 않습니다. 예

dd.areas$getElementAttribute('value') 

getElementText()

dd.areas = remDr$findElement(using='id', value="main_ddArea") 
dd.areas$getElementAttribute('option') 

또는 텍스트의 한 문자열, 예컨대, "지역 1/N 영역 2/N 영역 3/N ...."를 찾는다. 그러나 텍스트를 나중에 드롭 다운 목록을 탐색하는 데 사용할 수 없습니다. 즉, $findelement()을 사용하여 드롭 다운 목록을 탐색 할 때 드롭 다운 목록을 채우려면 값이 필요합니다. 텍스트가 작동하지 않습니다.

package documentation에는 드롭 다운 목록에 대한 참조가 포함되어 있지 않으며 vignette도 없습니다.

Answer 1

그런 다음 outerHTML을 얻을 select 태그를 대상으로 findElement를 사용하고 결과 HTML을 구문 분석 할 수있다 파이어 폭스 몇 가지 최근 문제가 있었다 요소 속성을 얻을

remDr$navigate("https://www.tutorialspoint.com/html/html_select_tag.htm") 
webElem <- remDr$findElement("name", "dropdown") 
appHTML <- webElem$getElementAttribute("outerHTML")[[1]] 
doc <- htmlParse(appHTML) 
doc["//option", fun = function(x) xmlGetAttr(x, "value")] 

> doc["//option", fun = function(x) xmlGetAttr(x, "value")] 
[[1]] 
[1] "Data Structures" 

[[2]] 
[1] "Data Mining" 

이는 셀레늄 서버 2를 실행하는 경우 표시 게 코 기반 브라우저는 GetAttribute of WebElement in Selenium Firefox Driver Returns Empty을 참조하십시오. 이 경우 당신이

remDr$navigate("https://www.tutorialspoint.com/html/html_select_tag.htm") 
webElem <- remDr$findElement("name", "dropdown") 
jsScript <- "var element = arguments[0]; return element.outerHTML;" 
appHTML <- remDr$executeScript(jsScript, list(webElem))[[1]] 
doc <- htmlParse(appHTML) 
doc["//option", fun = function(x) xmlGetAttr(x, "value")] 

> doc["//option", fun = function(x) xmlGetAttr(x, "value")] 
[[1]] 
[1] "Data Structures" 

[[2]] 
[1] "Data Mining"