Выберите опцию из всплывающего окна в сети, используя R и RSelenium - PullRequest
Новая
       14

Выберите опцию из всплывающего окна в сети, используя R и RSelenium

0 голосов
/ 10 июля 2019

Я хочу автозаполнить форму на веб-странице.Я использую RSelenium, и я могу заполнить всю форму, кроме поля «предпочитаемый язык».

Веб-страница: https://ontrack.sgs.com/es-ES/registration-form/

Я попытался найти кнопку de, чтобы нажатьи получить всплывающее окно, чтобы выбрать, но я не смог этого сделать.

Я пробовал эти комбинации и многие другие, но, похоже, ничего не работает: 

library(RSelenium)

#browser parameters

rD <- rsDriver(port=4571L, browser = "chrome", chromever = "75.0.3770.90") # runs a chrome browser, wait for necessary files to download
remDrv <- rD$client
remDrv$open(silent = TRUE)
url<-paste("https://ontrack.sgs.com/es-ES/registration-form/",sep="")

#### Updating form

webElem <- remDr$findElement(using = 'class', "button")
webElem <- remDrv$findElement(using = "xpath", "//input[@class='button']")
# webElem <- remDr$findElement(using = 'css selector', ".launchentitylookup")
# webElem$clickElement()

webElem <- remDrv$findElement(using = "xpath", "//input[@name = 'ctl00$ctl00$ContentContainer$MainContent$EntityControls$EntityFormControl$EntityFormControl_EntityFormView$sgs_portallanguage_name' ]") 
webElem$sendKeysToElement(list("Español"))
webElem <- remDrv$findElement(using = "xpath", "//input[@name = 'ctl00$ctl00$ContentContainer$MainContent$EntityControls$EntityFormControl$EntityFormControl_EntityFormView$sgs_portallanguage' ]") 
webElem$sendKeysToElement(list("Español"))
webElem <- remDrv$findElement(using = "xpath", "//input[@name = 'ctl00$ctl00$ContentContainer$MainContent$EntityControls$EntityFormControl$EntityFormControl_EntityFormView$sgs_portallanguage_entityname' ]") 
webElem$sendKeysToElement(list("Español"))

Я ожидаю, что смогу выбрать язык в форме, фактически испанском.

...