使用以下代码,我能够使浏览器选择2014/15赛季。您将需要检查各种下拉菜单的内容,并根据需要进行扩展。
@H_502_3@rD <- rsDriver(port=4444L,browser="chrome") remDr <- rD$client #navigate to main page remDr$navigate('https://www.premierleague.com/stats/top/players/total_pass') #find 'filter by season' @R_649_2419@ and click it webElem <- remDr$findElement(using = 'xpath', value = "//*[@data-dropdown-block='FOOTBALL_COMPSEASON']") webElem$clickElement() #find 2014/15 season and click it webElem1 <- remDr$findElement(using = 'xpath', value = "//*[@data-option-name='2014/15']") webElem1$clickElement()