我需要从网站获取数据，但从下拉菜单中获取值的代码不起作用，此代码适用于其他网站，但不适用于本网站。我不知道为什么。

下面是我试图抓取的代码和网站。我是 RSelenium，如果可能的话，我想用这个包来完成这个任务。

library(tidyverse)
library(RSelenium)

rD <- try(rsDriver(browser = "chrome",verbose = TRUE,chromever = "91.0.4472.101"))

remDr <- try(rD[["client"]])

remDr$navigate("https://assist.org/")

Sys.sleep(2)

DropDownOptions <- XML::htmlParse(remDr$getPageSource()[[1]]) %>%
    XML::xmlRoot(.) %>% 
    XML::getNodeSet('//select[@id="academicYear"]/option')
  
DropDownOptions <- data.frame(ID = sapply(DropDownOptions,XML::xmlGetattr,"value"),Name = sapply(DropDownOptions,XML::xmlValue))
                                   
data frame with 0 columns and 0 rows

```