From 071996d5d243c1834cd28a42f34e562ebf5a3669 Mon Sep 17 00:00:00 2001 From: Tom Jemmett Date: Mon, 18 May 2026 14:43:52 +0100 Subject: [PATCH] fixes imds_available fixes #124 --- DESCRIPTION | 2 +- R/get_auth_token.R | 7 ++++--- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 1f62a85..0fa66b3 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Package: azkit Title: Azure storage authentication toolkit -Version: 0.3.0 +Version: 0.3.1 Authors@R: c(person( "Fran", "Barton", diff --git a/R/get_auth_token.R b/R/get_auth_token.R index 35e212b..6d61d41 100644 --- a/R/get_auth_token.R +++ b/R/get_auth_token.R @@ -270,12 +270,13 @@ imds_available <- function() { ping_msi_endpoint <- function() { - fallback_url <- "http://169.254.169.254/metadata/identity/oauth2" - Sys.getenv("MSI_ENDPOINT", fallback_url) |> - httr2::request() |> + httr2::request("http://169.254.169.254") |> + httr2::req_url_path("metadata", "instance") |> + httr2::req_url_query("api-version" = "2021-02-01") |> httr2::req_headers(Metadata = "true") |> httr2::req_timeout(0.2) |> httr2::req_perform() + TRUE }