Question

我正在尝试通过＆＃34; idealista＆＃34;的API提出请求。（link）。

它需要身份验证，所以我做的是下一个：

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...
...

哪个没有意义。你能告诉我自己做得不好吗？我收到的状态代码是＆＃34; 400＆＃34;，我不知道我该做什么。

提前致谢。

Answer 1

我在python中发现了一个类似的问题，并在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的工作原理如下。

无法从R中的GET向idealista API提出请求

1 个答案: