Small play function for interacting with Azure openai playground (chatgpt)

chatgpt.R

library(httr2)
ChatGPT <- function(prompt='Tell me about Bioconductor') {
  base_request = httr2::request('https://openai-playground-asdf.openai.azure.com/openai/deployments/gpt-4/chat/completions?api-version=2023-03-15-preview')
  res = base_request |>
    httr2::req_headers('api-key'=Sys.getenv('API_KEY')) |>
    httr2::req_body_json(list(
        messages=
          list(
            list(role="system",content="You are a helpful AI assistant"),
            list(role="user", content=prompt)
          )
    ))
  resp = req_perform(res)
  lresp = resp_body_json(resp)
  rawresp = resp_body_string(resp)
  return(list(resp=lresp, rawresp=rawresp, content=lresp$choices[[1]]$message$content))
}