r-客户端错误:(400)从变量提供URL时请求错误

Question

我正在尝试使用Google API缩短数千个URL。我正在使用httr进行POST。每当我提供一个URL作为变量发布时，我都会得到"客户端错误：（400）错误请求"，但当相同的URL直接作为字符串提供时（例如"http://www.google.com"）一切都很好。下面提供了一个最小的例子：

library(httr)
library(httpuv)
# enter data
mydata <- data.frame(Link = "http://www.google.com")
# 1. Find OAuth settings for google:
#    https://developers.google.com/accounts/docs/OAuth2InstalledApp
oauth_endpoints("google")
# 2. Register an application at https://cloud.google.com/console#/project
myapp <- oauth_app("google", key = "key goes here", secret = "secret goes here")
# 3. Get OAuth credentials
google_token <- oauth2.0_token(oauth_endpoints("google"), myapp, scope = "https://www.googleapis.com/auth/urlshortener")

返回错误：客户端错误：（400）错误请求

req <- POST('https://www.googleapis.com/urlshortener/v1/url?fields=id',
       add_headers("Content-Type"="application/json"),
       body='{"longUrl": mydata$Link[1]}', config(token = google_token))
stop_for_status(req)

这很好

req <- POST('https://www.googleapis.com/urlshortener/v1/url?fields=id',
       add_headers("Content-Type"="application/json"),
       body='{"longUrl": "http://www.google.com"}', config(token = google_token))
stop_for_status(req)

我试着对URL进行编码，同时测试了http和https，但以上似乎都没有任何效果。有人能给我提些建议吗？提前谢谢！

-jacek

Answer 1

您有几个问题。

第一：数据帧将字符向量强制为因素：

mydata <- data.frame(link = "http://www.google.com")
class(mydata$link)
#> [1] "factor"
mydata <- data.frame(link = "http://www.google.com", stringsAsFactors = FALSE)
class(mydata$link)
#> [1] "character"

其次，您将'{"longUrl": mydata$Link[1]}'发送到谷歌，即。您提交的longUrl是mydata$Link[1]，而不是http://www.google.com。最简单的方法是使用jsonlite进行编码：

req <- POST('https://www.googleapis.com/urlshortener/v1/url?fields=id',
  body = list(longUrl = jsonlite::unbox(mydata$link[1]),
  encode = "json",
  config(token = google_token)
)
stop_for_status(req)

（不幸的是，unbox()是必需的，因为jsonlite默认为将长度为1的否决器转换为js数组，而不是标量。）

Answer 2

在我看来，mydata$Link[1]的类是不正确的，它给出了因子，但可能应该是字符。

class(mydata$Link[1])
vec<-as.character(mydata$Link[1])