需要帮助在R中使用html_节点提取第一个google搜索结果吗

我有一个医院名称列表，我需要提取第一个谷歌搜索URL。这是我正在使用的代码

library(rvest)
library(urltools)
library(RCurl)
library(httr)
getWebsite <- function(name)
{
 url = URLencode(paste0("https://www.google.com/search?q=",name))

 page <- read_html(url)

 results <- page %>% 
     html_nodes("cite") %>%
     html_text()

 result <- results[1]

 return(as.character(result))}
websites <- data.frame(Website = sapply(c,getWebsite))
View(websites)

库（rvest）
库（urltools）
图书馆（RCurl）
图书馆（httr）
获取网站
这是一个工作示例，在我的计算机上测试：

library（“rvest”）
#加载页面
main.page%#使用r类获取a节点
html_attr（“href”）#获取href属性
#清理文本
links=gsub（'/url\\？q='，''，sapply（strsplit（links[as.vector（grep（'url'，links））]，split='&'），'['，1））
#作为数据帧
网站
这是一个工作示例，在我的计算机上测试：

library（“rvest”）
#加载页面
main.page%#使用r类获取a节点
html_attr（“href”）#获取href属性
#清理文本
links=gsub（'/url\\？q='，''，sapply（strsplit（links[as.vector（grep（'url'，links））]，split='&'），'['，1））
#作为数据帧
您可以搜索
html\u节点（“.r”）
，然后搜索
html\u节点（“a”）
，然后搜索
html\u attr（“href”）
：）谢谢，但您如何搜索此代码中的所有3个节点？请发送一个工作片段？嗨，塔蒂亚娜，我的回答对您有帮助吗？您可以搜索
html\u节点（.r”）
，然后是
html\u节点（“a”）
，然后是
html\u attr（“href”）
：）谢谢，但您如何搜索此代码中的所有3个节点？能否发送一个工作片段？嗨，塔蒂亚娜，我的回答对您有帮助吗？
library("rvest")
# Load the page
main.page <- read_html(x = "https://www.google.com/search?q=software%20programming")
links <- main.page %>% 
  html_nodes(".r a") %>% # get the a nodes with an r class
  html_attr("href") # get the href attributes
#clean the text  
links = gsub('/url\\?q=','',sapply(strsplit(links[as.vector(grep('url',links))],split='&'),'[',1))
# as a dataframe
websites <- data.frame(links = links, stringsAsFactors = FALSE)
View(websites)