我正在尝试下载一个包含文本和链接的表。我可以成功下载带有链接文本“ Pass”的表。但是，我想捕获实际的href URL，而不是文本。
library(dplyr)
library(rvest)
library(XML)
library(httr)
library(stringr)
link <- "http://www.qimedical.com/resources/method-suitability/"
qi_webpage <- read_html(link)
qi_table <- html_nodes(qi_webpage, 'table')
qi <- html_table(qi_table, header = TRUE)[[1]]
qi <- qi[,-1]
上面给出了一个不错的数据框。但是，当我希望将链接与之关联时，最后一列仅包含文本“ Pass”。我尝试使用以下内容添加链接，但它们与正确的行不对应：
qi_get <- GET("http://www.qimedical.com/resources/method-suitability/")
qi_html <- htmlParse(content(qi_get, as="text"))
qi.urls <- xpathSApply(qi_html, "//*/td[7]/a", xmlAttrs, "href")
qi.urls <- qi.urls[1,]
qi <- mutate(qi, "MSTLink" = (ifelse(qi$`Study Protocol(click to download certification)` == "Pass", (t(qi.urls)), "")))
我对html，css等知之甚少，所以我不确定要正确完成此操作我缺少什么。
谢谢！！