I am trying to convert the following Python script in R:
import pandas as pd
import requests
import json
url = "https://telraam-api.net/v1/reports/traffic"
body = {
"id":"9000001463",
"time_start":"2022-10-01 00:00:00Z",
"time_end":"2022-10-02 00:00:00Z",
"level":"segments",
"format":"per-hour"
}
headers = {
'X-Api-Key': '***My_API-Key***'
}
payload = str(body)
response = requests.request("POST", url, headers=headers, data=payload)
json = response.json()
dataframe = pd.DataFrame(json['report'])
dataframe.to_csv('test.csv')
where My_API-Key stands for my API key which I cannot communicate.
I used the following:
get_telraam_data <- function(id = "9000001463",
time_start = "2022-10-01 00:00:00Z",
time_end = "2022-10-02 00:00:00Z",
level = "segments",
format = "per-hour",
token = "***My_API-Key***") {
GET(
url = sprintf("https://telraam-api.net/v1"),
query = list(
id = id,
time_start = time_start,
time_end = time_end,
level = level,
format = format
),
content_type_json(),
add_headers("X-Api-Key" = token)
) -> res
stop_for_status(res)
content(res, as="text", encoding="UTF-8") %>%
fromJSON(flatten=TRUE) %>%
as_tibble() %>%
readr::type_convert()
}
but the query does not seem to work.
Where did I make an error?
Is body a query?
requests.request("POST", ...) is a POST call while httr example is using GET. You can compare requests / responses by making calls to some testing service, e.g. http://httpbin.org/ . Or just open up a socket on your own machine to see how requests differ. With httr, this should do:
library(httr)
id <- "9000001463"
time_start <- "2022-10-01 00:00:00Z"
time_end <- "2022-10-02 00:00:00Z"
level <- "segments"
format <- "per-hour"
token <- "***My_API-Key***"
api_endpoint <- "https://httpbin.org/post"
# or just run netcat on your own host to check the request:
# nc -l 1234
#api_endpoint <- "http://localhost:1234"
POST(
url = api_endpoint,
body = list(
id = id,
time_start = time_start,
time_end = time_end,
level = level,
format = format
),
encode = "json",
content_type_json(),
add_headers("X-Api-Key" = token)
)
#> Response [https://httpbin.org/post]
#> Date: 2023-05-28 19:15
#> Status: 200
#> Content-Type: application/json
#> Size: 851 B
#> {
#> "args": {},
#> "data": "{\"id\":\"9000001463\",\"time_start\":\"2022-10-01 00:00:00Z\",\"t...
#> "files": {},
#> "form": {},
#> "headers": {
#> "Accept": "application/json, text/xml, application/xml, */*",
#> "Accept-Encoding": "deflate, gzip",
#> "Content-Length": "128",
#> "Content-Type": "application/json",
#> ...
Though I'd personally use httr2:
library(dplyr)
library(httr2)
response <- request(api_endpoint) %>%
req_headers("X-Api-Key" = token) %>%
req_body_json(list(
id = id,
time_start = time_start,
time_end = time_end,
level = level,
format = format)) %>%
# to check request without actually sending it:
# req_dry_run()
req_perform(verbosity = 2) %>%
resp_body_json(simplifyVector = TRUE)
#> -> POST /post HTTP/1.1
#> -> Host: httpbin.org
#> -> User-Agent: httr2/0.2.2 r-curl/5.0.0 libcurl/7.84.0
#> -> Accept: */*
#> -> Accept-Encoding: deflate, gzip
#> -> X-Api-Key: ***My_API-Key***
#> -> Content-Type: application/json
#> -> Content-Length: 128
#> ->
#> >> {"id":"9000001463","time_start":"2022-10-01 00:00:00Z","time_end":"2022-10-02 00:00:00Z","level":"segments","format":"per-hour"}
#> <- HTTP/1.1 200 OK
#> <- Date: Sun, 28 May 2023 19:15:26 GMT
#> <- Content-Type: application/json
#> <- Content-Length: 807
#> <- Connection: keep-alive
#> <- Server: gunicorn/19.9.0
#> <- Access-Control-Allow-Origin: *
#> <- Access-Control-Allow-Credentials: true
#> <-
#> << {
#> << "args": {},
#> << "data": "{\"id\":\"9000001463\",\"time_start\":\"2022-10-01 00:00:00Z\",\"time_end\":\"2022-10-02 00:00:00Z\",\"level\":\"segments\",\"format\":\"per-hour\"}",
#> << "files": {},
#> << "form": {},
#> << "headers": {
#> << "Accept": "*/*",
#> << "Accept-Encoding": "deflate, gzip",
#> << "Content-Length": "128",
#> << "Content-Type": "application/json",
#> << "Host": "httpbin.org",
#> << "User-Agent": "httr2/0.2.2 r-curl/5.0.0 libcurl/7.84.0",
#> << "X-Amzn-Trace-Id": "Root=1-6473a84e-5ed51b7c52cac4ce2a19f855",
#> << "X-Api-Key": "***My_API-Key***"
#> << },
#> << "json": {
#> << "format": "per-hour",
#> << "id": "9000001463",
#> << "level": "segments",
#> << "time_end": "2022-10-02 00:00:00Z",
#> << "time_start": "2022-10-01 00:00:00Z"
#> << },
#> << "origin": "91.101.104.191",
#> << "url": "https://httpbin.org/post"
#> << }
Created on 2023-05-28 with reprex v2.0.2