檢查RSelenium中的對話框

Question

我正在使用RSelenium訪問工資頁。如果發生錯誤，偶爾會在頁面上顯示對話框。檢查對話框是否顯示並檢索其內容的正確方法是什麼？

這個問題其實更一般：當找不到元素時，像findElement這樣的函數有很多的例外。檢查元素的最佳方法是什麼？每個命令都有單獨的tryCatch似乎很麻煩。

Answer 1

您選擇的例子是框架網頁，讓第一正確幀需要切換到：

appURL <- "http://www.w3schools.com/js/tryit.asp?filename=tryjs_confirm" 
library(RSelenium) 
RSelenium::startServer() 
remDr <- remoteDriver() 
remDr$open() 
remDr$navigate(appURL) 
# This page has frames 
remDr$switchToFrame(remDr$findElement("id", "iframeResult")) 
webElem <- remDr$findElement("css", "button") 
# visually confirm element 
webElem$highlightElement() 
# click the button to bring up alert 
webElem$clickElement() 

# Check the Alert text 
> remDr$getAlertText() 
[[1]] 
[1] "Press a button!" 
# Accept the alert. Equivalent to pressing the OK button. 
remDr$acceptAlert() 

根據不同的情況下，你可能還會發現remoteDriver類有用的sendKeysToAlert和dismissAlert方法。

UPDATE：

由於錯誤處理代碼RSelenium跟蹤異常，併爲它們分配一個狀態代碼的一部分。您可以隨時嘗試撥打電話，然後查看狀態代碼：

> try(remDr$findElement("id", "I DONT EXIST"), TRUE) 
> remDr$status 
[1] 7 
> remDr$statusCodes[which(remDr$statusCodes$Code == remDr$status),] 
    Code  Summary                   Detail 
3 7 NoSuchElement An element could not be located on the page using the given search parameters.