library(httr2)
library(jsonlite)

base_url <- "http://localhost:7860"
bearer_token <- trimws(Sys.getenv("ASA_API_BEARER_TOKEN", unset = ""))
if (!nzchar(bearer_token)) {
  stop("Set ASA_API_BEARER_TOKEN before running this example.", call. = FALSE)
}

resp <- request(paste0(base_url, "/v1/run")) |>
  req_headers(
    `Content-Type` = "application/json",
    Authorization = sprintf("Bearer %s", bearer_token)
  ) |>
  req_body_json(list(prompt = "Return the single word OK."), auto_unbox = TRUE) |>
  req_perform()

result <- resp_body_json(resp, simplifyVector = TRUE)
print(result$status)
print(result$message)