如何在 R 中使用 rselenium 和 rvest 单击锚标记链接？

Question

我一直在使用 rselenium 和 rvest 包在 R 中练习网页抓取。因此，对于登录许多网站，都有一个登录按钮，单击该按钮时会打开一个弹出窗口，询问用户 ID 和密码。我一直在尝试以下代码来单击存在登录链接的锚标记，但没有一个有效。

这是锚标签的html（示例）

<a href="/profile/login_input.htm?userOriginHook=HEADER_SIGNIN_LINK" class="track-click gd-btn-locked-transparent susiLink sign-in strong nowrap" target="_top" data-ga-lbl="Sign In"> Sign In</a>

这些是我一直在尝试的代码：

1.

user<-remDr$findElement(using = 'href',"/profile/login_input.htm?userOriginHook=HEADER_SIGNIN_LINK")
user$sendKeysToElement(list("",key="enter"))

2.

driver.findElement(By.xpath("//a[text()='Sign In']")).click()

3.

driver.findElement(By.linkText("Sign In")).click()

4.

remDr$findElement(xpath="//a[contains(text(),'Sign In')]")).click()

大多数情况下，我在这一行中遇到了诸如意外符号之类的错误

如何解决这个问题？以及如何在弹出窗口打开后发送我的用户名和密码？提前致谢。

Answer 1

更新

如果您想点击登录按钮而不是直接导航到其网址，您可以按如下方式完成整个过程：

page<-"https://www.glassdoor.co.in"
remDr$navigate(page)
accept_cokies_btn <- remDr$findElement(using = "xpath", '//*[@id="onetrust-accept-btn-handler"]')
accept_cokies_btn$clickElement()
signin <- remDr$findElement(using = "xpath", '//*[@id="TopNav"]/nav/div/div/div[4]/div[1]/a')
signin$clickElement()

在此之后与之前提交您的用户名和密码相同：

username_btn <- remDr$findElement(using ="name" , "username")
username_btn$sendKeysToElement(list("add username here"))
pass_btn <- remDr$findElement(using = "name", "password")
pass_btn$sendKeysToElement(list("add password here", "\uE007"))

请注意，我添加了单击另一个按钮； cookies 接受按钮。