2017-10-10 101 views
-1

我正在尝试从“idealista”(link)的API发出请求。无法从GET请求R到idealista API

它需要认证,所以我所做的就是下一个:

if(!require("jsonlite")){install.packages("jsonlite")} 
if(!require("httr")){install.packages("httr")} 

consumer_key <- "my_key" 
consumer_secret <- "my_secret" 

#Use basic auth 
secret <- jsonlite::base64_enc(paste(consumer_key, consumer_secret, sep = ":")) 
req <- httr::POST("https://api.idealista.com/oauth/token", 
        httr::add_headers(
        "Authorization" = paste("Basic", gsub("\n", "", secret)), 
        "Content-Type" = "application/x-www-form-urlencoded;charset=UTF-8" 
       ), 
        body = "grant_type=client_credentials" 
) 


#Extract the access token 
token <- paste("Bearer", jsonlite::base64_enc(httr::content(req)$access_token)) 

因此,首先:我不知道,如果令牌必须是base64编码(我认为是)。而我下面提个要求:

url<-"https://api.idealista.com/3.5/es/search?locale=es&maxItems=20&numPage=1&operation=sale&order=publicationDate&propertyType=garages&apikey=my_key&t=1&language=es&bankOffer=true" #an example of url (needs apikey) 
req <- httr::GET(url, httr::add_headers("Authorization" = token)) 

和响应是:

Response [https://api.idealista.com/3.5/es/search?locale=es&maxItems=20&numPage=1&operation=sale&order=publicationDate&propertyType=garages&apikey=80gzxznozajnl3tf30ite86k1p24e4yb&t=1&language=es&bankOffer=true] 
    Date: 2017-10-10 15:25 
    Status: 400 
    Content-Type: text/html 
    Size: 4.4 kB 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/T... 
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="es_ES" lang="es_ES"> 
<head> 

       <title>idealista.com : pisos madrid, pisos barcelona, pisos v... 
       <meta http-equiv="content-Type" content="text/html; charset=I... 
       <meta http-equiv="Expires" content="0"/> 
       <meta name="Pragma" content="no-cache"/> 
       <meta http-equiv="pragma" content="no-cache"/> 
       <meta http-equiv="cache-control" content="no-cache, mustreval... 
... 

它没有意义。你能告诉我我做得不好吗? 我收到的状态码是“400”,我不知道我必须做什么。

在此先感谢。

+0

这似乎完全特定于idealista.com API。你应该联系他们寻求支持。或者至少在他们的API文档的相关部分提供一个链接。你真的想添加两个授权标题吗? – MrFlick

回答

2

我发现蟒蛇类似的问题,这是在这个link

第一部分(认证)解决是确定的,但第二个是错误的。另外,我也尝试了其他网址,并且令牌不需要base64编码。

token <- paste("Bearer", httr::content(req)$access_token) 

url<-"http://api.idealista.com/3.5/es/search?center=40.42938099999995,-3.7097526269835726&country=es&maxItems=50&numPage=1&distance=452&propertyType=homes&operation=sale" 
req <- httr::POST(url, httr::add_headers("Authorization" = token)) 

正如你所看到的,我用的是功能“GET”,但看着上面提到的Python代码,我用“POST”和它的工作!

我不知道为什么在我做请求时使用POST函数,但API的工作原理是这样的。