Как получить ответ с помощью POST в R - PullRequest
Новая
       69

Как получить ответ с помощью POST в R

1 голос
/ 01 ноября 2019

Если вы зайдете на https://www.aucklandcouncil.govt.nz/property-rates-valuations/pages/find-property-rates-valuation.aspx, то увидите окно поиска.

Я хочу, чтобы '905/8 Ronayne St' было введено, а '12343197398' было выведено.

Я использую R и пробовал вот так, но не получилось .. 

post <- POST("https://www.aucklandcouncil.govt.nz/_vti_bin/ACWeb/ACservices.svc/GetMatchingPropertyAddresses", 
             body = list('ResultCount' = "10", 'SearchText' = "905/8 Ronayne St", 'RateKeyRequired' = "false"))

content(post, "text")

Не могли бы вы мне помочь? Это будет высоко ценится:)

1 Ответ

1 голос
/ 01 ноября 2019

Просто нужно указать правильный заголовок в R из-за способа отправки.

R: 

library(httr)

headers = c('Content-Type' = 'application/json; charset=UTF-8')
data = '{"ResultCount":"10","SearchText":"905/8 Ronayne St","RateKeyRequired":"false"}'
r <- httr::POST(url = 'https://www.aucklandcouncil.govt.nz/_vti_bin/ACWeb/ACservices.svc/GetMatchingPropertyAddresses', httr::add_headers(.headers=headers), body = data)

print(content(r)[[1]]$ACRateAccountKey)

Py: 

import requests

data = {"ResultCount":"10","SearchText":"905/8 Ronayne St","RateKeyRequired":"false"}    
r = requests.post('https://www.aucklandcouncil.govt.nz/_vti_bin/ACWeb/ACservices.svc/GetMatchingPropertyAddresses', json=data).json()
print(r[0]['ACRateAccountKey'])
...