在R中退出功能

Question

我正在编写一个网络抓取项目，该项目将从R中的Gmail帐户中提取用户名。 我写了一个代码，其中e是用户名列表。函数f包含用于抓取的代码，并且for循环将索引传递给函数f，使用索引我们会将用户名发送到远程浏览器，然后单击下一步。如果我的用户名控制正确，将转到下一页。如果输入错误，我会得到一行提示用户名错误。如果我的函数在用户名中发现错误的元素，那么我想退出函数并转到for循环。我如何在R中做到这一点？还有其他方法可以得到我的预期输出吗？

代码-

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)
  }