从twitteR软件包中解码\u short\u URL的函数不起作用
我正在使用从twitteR软件包中解码\u short\u URL的函数不起作用,r,twitter-oauth,sentiment-analysis,tweets,url-shortener,R,Twitter Oauth,Sentiment Analysis,Tweets,Url Shortener,我正在使用twitteR软件包的decode\u short\u url对twitteR帖子中的缩短url进行解码，但我无法获得期望的结果，它总是返回相同的结果，例如： decode_short_url(decode_short_url("http://bit.ly/23226se656")) ## http://bit.ly/23226se656 ## [1] "http://bit.ly/23226se656 更新我将此功能包装在一个包中，并设法在当天获得它。现在，您只需执行以下操作：
twitteRdecode\u short\u urldecode_short_url(decode_short_url("http://bit.ly/23226se656"))
## http://bit.ly/23226se656
## [1] "http://bit.ly/23226se656
更新我将此功能包装在一个包中，并设法在当天获得它。现在，您只需执行以下操作：
library(longurl)
expand_urls("http://bit.ly/23226se656", check=TRUE, warn=TRUE)
|++++++++++++++++++++++++++++++++++++++++++++++++++| 100%
## Source: local data frame [1 x 2]
##
## orig_url expanded_url
## 1 http://bit.ly/23226se656 NA
##
## Warning message:
## In FUN(X[[i]], ...) : client error: (404) Not Found
数据\u框架数据.frame该特定的bit.ly URL给出了一个
404decode\u short\u urlcheckHEADNAHEADcheck=FALSEcheck=TRUEtwitteRdecode_short_url <- function(url, check=FALSE, ...) {
require(httr)
request_url <- paste("http://api.longurl.org/v2/expand?url=",
url, "&format=json", sep="")
response <- GET(request_url, query=list(useragent="twitteR"), ...)
parsed <- content(response, as="parsed")
ret <- NULL
if (!("long-url" %in% names(parsed))) {
ret <- url
} else {
ret <- parsed[["long-url"]]
}
if (check) warn_for_status(HEAD(url))
return(url)
}
decode_short_url("http://bit.ly/23226se656", check=TRUE)
## [1] "http://bit.ly/23226se656"
## Warning message:
## In decode_short_url("http://bit.ly/23226se656", check = TRUE) :
## client error: (404) Not Found
decode\u short\u url更新我将此功能包装在一个包中，并设法在当天获得它。现在，您只需执行以下操作：
library(longurl)
expand_urls("http://bit.ly/23226se656", check=TRUE, warn=TRUE)
|++++++++++++++++++++++++++++++++++++++++++++++++++| 100%
## Source: local data frame [1 x 2]
##
## orig_url expanded_url
## 1 http://bit.ly/23226se656 NA
##
## Warning message:
## In FUN(X[[i]], ...) : client error: (404) Not Found
您可以传入一个URL向量，并以该形式返回数据\u框架
/数据.frame
该特定的bit.ly URL给出了一个404
错误。这是一个版本的decode\u short\u url
，它有一个可选的check
参数，该参数将尝试一个HEAD
请求，并针对除200以外的任何HTTP状态抛出一条警告消息
如果“扩展”链接404出现问题，您可以进一步修改它以返回NA
（我不知道如果链接出现问题，您需要它做什么）
请注意，adddHEAD
请求将显著降低处理速度，因此您可能希望使用check=FALSE
对一个单独的列进行第一次传递，然后比较未“展开”的列，然后使用check=TRUE
检查这些列
您可能还希望重命名它，以避免与来自twitteR
的名称空间冲突
decode_short_url <- function(url, check=FALSE, ...) {
require(httr)
request_url <- paste("http://api.longurl.org/v2/expand?url=",
url, "&format=json", sep="")
response <- GET(request_url, query=list(useragent="twitteR"), ...)
parsed <- content(response, as="parsed")
ret <- NULL
if (!("long-url" %in% names(parsed))) {
ret <- url
} else {
ret <- parsed[["long-url"]]
}
if (check) warn_for_status(HEAD(url))
return(url)
}
decode_short_url("http://bit.ly/23226se656", check=TRUE)
## [1] "http://bit.ly/23226se656"
## Warning message:
## In decode_short_url("http://bit.ly/23226se656", check = TRUE) :
## client error: (404) Not Found
decode\u short\u url更新我将此功能包装在一个包中，并设法在当天获得它。现在，您只需执行以下操作：
library(longurl)
expand_urls("http://bit.ly/23226se656", check=TRUE, warn=TRUE)
|++++++++++++++++++++++++++++++++++++++++++++++++++| 100%
## Source: local data frame [1 x 2]
##
## orig_url expanded_url
## 1 http://bit.ly/23226se656 NA
##
## Warning message:
## In FUN(X[[i]], ...) : client error: (404) Not Found
您可以传入一个URL向量，并以该形式返回数据\u框架
/数据.frame
该特定的bit.ly URL给出了一个404
错误。这是一个版本的decode\u short\u url
，它有一个可选的check
参数，该参数将尝试一个HEAD
请求，并针对除200以外的任何HTTP状态抛出一条警告消息
如果“扩展”链接404出现问题，您可以进一步修改它以返回NA
（我不知道如果链接出现问题，您需要它做什么）
请注意，adddHEAD
请求将显著降低处理速度，因此您可能希望使用check=FALSE
对一个单独的列进行第一次传递，然后比较未“展开”的列，然后使用check=TRUE
检查这些列
您可能还希望重命名它，以避免与来自twitteR
的名称空间冲突
decode_short_url <- function(url, check=FALSE, ...) {
require(httr)
request_url <- paste("http://api.longurl.org/v2/expand?url=",
url, "&format=json", sep="")
response <- GET(request_url, query=list(useragent="twitteR"), ...)
parsed <- content(response, as="parsed")
ret <- NULL
if (!("long-url" %in% names(parsed))) {
ret <- url
} else {
ret <- parsed[["long-url"]]
}
if (check) warn_for_status(HEAD(url))
return(url)
}
decode_short_url("http://bit.ly/23226se656", check=TRUE)
## [1] "http://bit.ly/23226se656"
## Warning message:
## In decode_short_url("http://bit.ly/23226se656", check = TRUE) :
## client error: (404) Not Found
decode\u short\u url更新我将此功能包装在一个包中，并设法在当天获得它。现在，您只需执行以下操作：
library(longurl)
expand_urls("http://bit.ly/23226se656", check=TRUE, warn=TRUE)
|++++++++++++++++++++++++++++++++++++++++++++++++++| 100%
## Source: local data frame [1 x 2]
##
## orig_url expanded_url
## 1 http://bit.ly/23226se656 NA
##
## Warning message:
## In FUN(X[[i]], ...) : client error: (404) Not Found
您可以传入一个URL向量，并以该形式返回数据\u框架
/数据.frame
该特定的bit.ly URL给出了一个404
错误。这是一个版本的decode\u short\u url
，它有一个可选的check
参数，该参数将尝试一个HEAD
请求，并针对除200以外的任何HTTP状态抛出一条警告消息
如果“扩展”链接404出现问题，您可以进一步修改它以返回NA
（我不知道如果链接出现问题，您需要它做什么）
请注意，adddHEAD
请求将显著降低处理速度，因此您可能希望使用check=FALSE
对一个单独的列进行第一次传递，然后比较未“展开”的列，然后使用check=TRUE
检查这些列
您可能还希望重命名它，以避免与来自twitteR
的名称空间冲突
decode_short_url <- function(url, check=FALSE, ...) {
require(httr)
request_url <- paste("http://api.longurl.org/v2/expand?url=",
url, "&format=json", sep="")
response <- GET(request_url, query=list(useragent="twitteR"), ...)
parsed <- content(response, as="parsed")
ret <- NULL
if (!("long-url" %in% names(parsed))) {
ret <- url
} else {
ret <- parsed[["long-url"]]
}
if (check) warn_for_status(HEAD(url))
return(url)
}
decode_short_url("http://bit.ly/23226se656", check=TRUE)
## [1] "http://bit.ly/23226se656"
## Warning message:
## In decode_short_url("http://bit.ly/23226se656", check = TRUE) :
## client error: (404) Not Found
decode_short_url感谢那里的帮助，但在我拥有的其他几个短url上，它仍然不适用于我，Python的“urlib2”模块和为类定义的函数对我来说很好。但是，在python上尝试此功能时，我仍然缺少RThanks的帮助，但在我拥有的其他几个短URL上，python的“urlib2”模块和为类定义的函数对我来说仍然不起作用。但是，在python上尝试此功能时，我仍然缺少RThanks的帮助，但在我拥有的其他几个短URL上，python的“urlib2”模块和为类定义的函数对我来说仍然不起作用。但是，在python上尝试此功能时，我仍然缺少RThanks的帮助，但在我拥有的其他几个短URL上，python的“urlib2”模块和为类定义的函数对我来说仍然不起作用。但是，是的，在python上尝试这个时，我仍然缺少R