如何从此代码中使用RSelenium获取href元素？

Question

我正在使用Rselenium获取URL，但我不明白为什么它不起作用。

我的代码：

.embed-responsive-9by16::before {
display: block;
content: "";
padding-top: 125%;
}

页面代码：

    links <- remDr$findElements(using = "xpath", value = "//*[@class 
    = 
    'item-info']")
     final_link <- data.frame(link = unlist(sapply(links, function(x) 
     {x$getElementAttribute('href')})))

预期的结果是链接，在这种情况下：      https://www.kobo.com/us/en/ebook/added-youth

Answer 1

我的代码：

page <- read_html(paste0(urls1[[i]]))

links <- page %>% 
      html_nodes("a") %>%
      html_attr("href")