Я пишу веб-проект по извлечению имени пользователя из учетной записи Gmail в R.
Я написал код, где e это список имени пользователя. Функция f содержит код для очистки и цикл for передает индекс в функцию f, используя индекс, мы отправим имя пользователя в удаленный браузер, а затем нажмите «Далее». Если мое имя пользователя имеет право контролировать, перейдем на следующую страницу. Если не так, я получу строку с сообщением Ошибка в имени пользователя . Если моя функция находит элемент для ошибки в имени пользователя, то я хочу выйти из функции и перейти к циклу for. Как я могу сделать это в R? Есть ли другой способ получить ожидаемый результат?
* 1005 код-*
e = list of Gmail username
f <- function(i){
#Username
u <- remDr$findElement("css","value")
u$sendKeysToElement(list(e[i]))
#click next
n <- remDr$fundElement("css","value")
n$sendKeysToElement(list("Enter"))
##if user name is wrong exit function & go to for loop
check <- tryCatch(remDr$findElemnt("css","value"),
error = function(e) print("error"))
if(typeof(check) =="S4"){
##what to do to exit function & go to for loop
}else{
print("continue")
}
for(i in sew(1,4))
{
f(i)
}