From 604f06f44f74f4d12c36ed42ca2510a51db3fdab Mon Sep 17 00:00:00 2001 From: Sebastian Carl Date: Tue, 11 Jul 2023 10:58:49 +0200 Subject: [PATCH] use bearer auth function --- R/otc_player_ids.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/otc_player_ids.R b/R/otc_player_ids.R index 5133050..b1e2902 100644 --- a/R/otc_player_ids.R +++ b/R/otc_player_ids.R @@ -12,7 +12,7 @@ otc_player_ids <- function(endpoint = Sys.getenv("OTC_PLAYERID_ENDPOINT"), ) resp <- httr2::request(endpoint) %>% - httr2::req_headers(Authorization = paste("Bearer", api_key)) %>% + httr2::req_auth_bearer_token(api_key) %>% httr2::req_retry(max_tries = 3) %>% httr2::req_perform()