как искать yahoo и получить ссылку в r

Я хочу найти что-то в Yahoo и получить ссылки:

пример: поиск по sap wiki и получение вывода, например

https://en.wikipedia.org/wiki/SAP_ERP

в основном я следую этому вопросу: Как получить результаты поиска Google мой код :

library(XML)                                                                   # 
library(xml2)                                                                  #
library(RCurl)                                                                 #
myOpts <- curlOptions(connecttimeout = 900000000000)                           #
getyahooURL <- function(search.term, domain = '.com', quotes=TRUE)            #
{                                                                              #
  search.term <- gsub(' ', '%20', search.term)                                 #
  if(quotes) search.term <- paste('%22', search.term, '%22', sep='')           #
  getyahooURL <- paste('http://in.search.yahoo', 
                        domain, '/search;_ylt=A0oG7l7PeB5P3G0AKASl87UF?p=',    #
                        search.term,'&fr2=sb-top-in.search&fr=yfp-t-101&vm=r', 
                        sep='')                                                #
}                                                                              #                                   #
getyahooLinks <- function(yahoo.url) {                                       #
  doc <- getURL(yahoo.url, httpheader = c("User-Agent" = "R                   #
                                           (2.10.0)"),.opts = myOpts)          #
  html <- htmlTreeParse(doc, useInternalNodes = TRUE, error=function           #
                        (...){})                                               #
  nodes <- getNodeSet(html, "//h3[@class='title']//a")                         #
  return(sapply(nodes, function(x) x <- xmlAttrs(x)[["href"]]))                #
}

но я получаю пустой список в качестве вывода.

> links
list()

Благодарность..