r - 单击下一步按钮 :rseleniun

Question

library(xml2)
library(rvest)
require(RSelenium)

# open the remote driver
fprof <- makeFirefoxProfile(list(browser.download.dir = "C:/temp"
                                 ,  browser.download.folderList = 2L
                                 , browser.download.manager.showWhenStarting     = FALSE
                                 , browser.helperApps.neverAsk.saveToDisk =  "application/zip"))
remDr <- remoteDriver(browserName = "firefox",remoteServerAddr = "192.168.99.100",port = 4445L,extraCapabilities = fprof)
remDr$open(silent = TRUE)
# 
# go to the webpage
remDr$navigate("https://www.expedia.co.uk/Shanghai-Hotels-Fairmont-Peace-Hotel.h44282.Hotel-Information") 


#close popup window
remDr$screenshot(display = TRUE)
closebt <- remDr$findElement(using = "id", "modalCloseButton")
closebt$clickElement()
remDr$screenshot(display = TRUE)# just to see if the popup windows is closed

# create R objects from the website elements
guestreview <- remDr$findElement(using = 'id', value = "tab-reviews")


# click the guest review button
guestreview$clickElement()

# Let us read the html page now and extract the links of the various articles loaded
#
# get the page html
#
page_source<-remDr$getPageSource()

#load first 10 review
reviews <- read_html(page_source[[1]]) %>% 
  html_nodes(xpath = '//*[contains(concat( " ", @class, " " ), concat( " ", "translate-text", " " ))]') %>% 
  html_text()
reviews
remDr$screenshot(display = TRUE)

#load next page

Nextbtn <- remDr$findElement(using = 'xpath', '//*[contains(concat( " ", @class, " " ), concat( " ", "pagination-next", " " ))] | //abbr')
Nextbtn$clickElement()


remDr$screenshot(display = TRUE)
remDr$close()

大家好。我需要帮助来解决我的问题。我想单击“取消更多用户评论”旁边的按钮。但问题是我收到此错误消息:

Selenium message:Element is not clickable at point

当我创建时没有弹出窗口或警报

remDr$screenshot(display = TRUE)

我可以看到按钮就在那里，所以它没有隐藏。我正在使用 selenium/standalone-firefox:2.53.0 图像你能帮我么？我不知道我做错了什么

Answer 1

#load next page
#click on next
#remDr$findElement(using = 'class', "pagination-next")$clickElement() 

remDr$executeScript("arguments[0].click();"
                    , list(remDr$findElement("class", "pagination-next")))
remDr$screenshot(display = TRUE)

终于找到错误了。有一个导航栏覆盖了我想要单击的元素。这就是我收到错误的原因由于另一个元素会收到点击，因此该元素不可点击为了根据此链接解决此问题，我使用 JavaScript 单击该元素。宾果游戏，它对我有用 RSelenium and Javascript