谷歌API - 與R的URL縮短器

Question

我試圖用R來快速縮短一批網址。在谷歌API文檔提供瞭解決方案下面使用curl

curl https://www.googleapis.com/urlshortener/v1/url \ 
    -H 'Content-Type: application/json' \ 
    -d '{"longUrl": "http://www.google.com/"}' 

我試過，使用R將其轉換爲R，但我不斷收到「錯誤：錯誤的請求」。這是我正在與之合作。

library(RCurl) 
library(RJSONIO) 

postForm("https://www.googleapis.com/urlshortener/v1/url" , 
     .params= c(data = '{"longUrl":"www.google.com"}'), 
     .opts = list(httpheader = "Content-Type: application/json", 
        ssl.verifypeer = FALSE)) 

Answer 1

下面是使用HTTR作爲RCurl的包裝的解決方案。

> library("httr") 
> POST('https://www.googleapis.com/urlshortener/v1/url', 
     add_headers("Content-Type"="application/json"), 
     body='{"longUrl": "http://www.google.com/"}') 
Response [https://www.googleapis.com/urlshortener/v1/url] 
    Status: 200 
    Content-type: application/json; charset=UTF-8 
{ 
"kind": "urlshortener#url", 
"id": "http://goo.gl/fbsS", 
"longUrl": "http://www.google.com/" 
} 

Answer 2

我使用Rcurl + JSONIO當按照建議從https://stackoverflow.com/questions/12302941/convert-curl-code-into-r-via-the-rcurl-package

library(RCurl) 
library(RJSONIO) 
test <- postForm("https://www.googleapis.com/urlshortener/v1/url", 
       .opts = list(postfields = toJSON(list(longUrl = "http://www.google.com/")), 
       httpheader = c('Content-Type' = 'application/json', Accept = 'application/json'), 
       ssl.verifypeer = FALSE))