如何在RSelenium中选择下拉选项？

library(RSelenium)
driver <- remoteDriver(browserName = "chrome", port = 4444)

driver$navigate("https://example.com")

select_element <- driver$findElement(using = "css", value = "#select-id")

select_element$clickElement()

option_elements <- driver$findElements(using = "css", value = "#select-id option")

target_option <- "Option 1"
for (option_element in option_elements) {
  if (option_element$getElementText() == target_option) {
    option_element$clickElement()
    break
  }
}