url - 在R中解码tinyurl以获得完整的url路径？

Question

有没有办法在 R 中解码tinyURL 链接，以便我可以看到它们实际引用的网页？

Answer 1

下面是一个快速但肮脏的解决方案，但应该可以完成工作:

library(RCurl)

decode.short.url <- function(u) {
  x <- try( getURL(u, header = TRUE, nobody = TRUE, followlocation = FALSE) )
  if(class(x) == 'try-error') {
    return(u)
  } else {
    x <- strsplit(x, "Location: ")[[1]][2]
    return(strsplit(x, "\r")[[1]][1])
  }
}

下面的变量“u”包含一个缩短的网址和一个常规网址。

u <- c("http://tinyurl.com/adcd", "http://www.google.com") 

然后，您可以通过执行以下操作来获取扩展结果。

 sapply(u, decode.short.url) 

以上内容应该适用于大多数缩短 URL 的服务，而不仅仅是tinyURL。我认为。

HTH

托尼·布雷亚尔