r - 使用 R 执行 Web 查询并返回 URL

Question

我对 R 相当陌生，以前从未使用它来编写 Web 查询。我想知道是否有任何预先存在的软件包可以满足我的需求。我正在尝试搜索一家公司并返回其网站的 URL。我有公司名称、地址和电话号码。有没有办法运行一个程序来检查网站是否符合我必须确认它是正确网站的信息？

Answer 1

Thomas 的函数用 httr 编写起来更容易一些，因为它：

• 自动为您管理句柄

• 自动跟随重定向

• 返回一个表示请求结果的对象

这是功能：

library(httr)
geturlname <- function(name){
  url <- paste0("http://google.com/search?btnI=1&q=", name)
  GET(url)$url
}
geturlname("Apple")
geturlname("Google")
geturlname("Blockbuster")

Answer 2

不能保证每次都能正常工作，但一定要使用该RCurl软件包

library(RCurl)
geturlname <- function(name){
    h = getCurlHandle()
    z <- getURL(paste0("http://google.com/search?btnI=1&q=",name), # google i'm feeling lucky
        followlocation=TRUE, curl=h)
    getCurlInfo(h)$effective.url # catch the url redirect
}
geturlname("Apple")
geturlname("Google")
geturlname("Blockbuster")