R - Помогите перевести оператор cURL в R httr - PullRequest
Новая
       8

R - Помогите перевести оператор cURL в R httr

0 голосов
/ 13 ноября 2018

Заранее благодарим за помощь с моим первым запросом на переполнение стека.

Я работаю с API через Catapult Sport.Я могу заставить следующее заявление работать в моем клиенте REST, в настоящее время я использую бессонницу.Я удалил сгенерированный токен доступа в этом примере.Может ли какая-то помощь перевести следующее утверждение?

curl --request POST \
  --url https://connect-us.catapultsports.com/api/v4/stats \
  --header 'authorization: Bearer <access_token>' \
   --data '{"filters": [{"name": "activity_id", "comparison": "=", "values": ["c33392e2-dba7-494b-a045-e3ffa3d1c9c8"]}], "parameters": ["total_player_load", "total_duration", "average_player_load", "explosive_efforts"],"group_by": ["athlete"]}'

Я получаю ошибку 400, используя варианты следующего кода R 

base_url <- 'https://connect-us.catapultsports.com/api/v4'
filter <- '{"filters": [{"name": "activity_id", "comparison": "=", "values": ["c33392e2-dba7-494b-a045-e3ffa3d1c9c8"]}], "parameters": ["total_player_load", "average_player_load", "explosive_efforts"],"group_by": ["period", "athlete"]}'

r <- POST(url = paste0(base_url,"/stats"), 
                 add_headers(`authorization: Bearer` = access_token),
                 query = list(`data` = filter),
                 verbose()
        )
http_status(r)
content(r, as="text", encoding="UTF-8") %>% fromJSON(flatten=TRUE) %>% as_tibble()
...