How to integrate GPT-4 model hosted on Azure with the gptstudio package

题意 :怎样将托管在Azure上的GPT-4模型与gptstudio包集成?

问题背景:

I am looking to integrate the OpenAI GPT-4 model into my application. Here are the details I have:

  • Endpoint: https://xxxxxxxxxxxxxxx.openai.azure.com/
  • Location/Region: yyyyyyyyyyyyyyyyyyyyyyyy
  • Key: *******************
  • Deployment Name: gpt-4o
  • Model Name: gpt-4o
  • Model Version: 2024-02-01

I edited the .Renviron file accordingly:

复制代码
AZURE_OPENAI_TASK="completions"
AZURE_OPENAI_ENDPOINT="https://xxxxxxxxxxxxxxx.openai.azure.com/"
AZURE_OPENAI_DEPLOYMENT_NAME="gpt-4o"
AZURE_OPENAI_KEY="*******************"
AZURE_OPENAI_API_VERSION="2024-02-01"
AZURE_OPENAI_USE_TOKEN=FALSE

I want to integrate it with gptstudio. Could someone guide me on authenticating and making API requests to this endpoint?

I tried:

cs 复制代码
library(gptstudio)
chat(service = "azure_openai", prompt = "hello", model = "gpt-4)
#> $messages
#> $messages[[1]]
#> $messages[[1]]$role
#> [1] "system"
#> 
#> $messages[[1]]$content
#> As a chat bot assisting an R programmer working in the RStudio IDE it is important to tailor responses to their skill level and preferred coding style. They consider themselves to be a beginner R programmer. Provide answers with their skill level in mind.  
#> 
#> 
#> $messages[[2]]
#> $messages[[2]]$role
#> [1] "user"
#> 
#> $messages[[2]]$content
#> [1] "hello"
#> Error in `query_api_azure_openai()`:
#> ✖ Azure OpenAI API request failed. Error 400 - Bad Request
#> ℹ Visit the Azure OpenAi Error code guidance
#>   (<https://help.openai.com/en/articles/6891839-api-error-code-guidance>) for
#>   more details
#> ℹ You can also visit the API documentation
#>   (<https://platform.openai.com/docs/guides/error-codes/api-errors>)

问题解决:

Below is the sample code to authenticate an Azure Openai GPT-4o model with a key in R using httr and jsonlite packages.

Code :

cs 复制代码
library(httr)
library(jsonlite)

azure_endpoint <- Sys.getenv("AZURE_OPENAI_ENDPOINT")
api_key <- Sys.getenv("AZURE_OPENAI_KEY")
api_version <- Sys.getenv("AZURE_OPENAI_API_VERSION")

api_url <- paste0(azure_endpoint, paste0("openai/deployments/",Sys.getenv("AZURE_OPENAI_DEPLOYMENT_NAME"),"/chat/completions?api-version="), api_version)

messages <- list(
  list(role = "system", content = "You are a helpful assistant."),
  list(role = "user", content = "Does Azure Open AI supports gpt-4 model?")
)

request_body <- list(messages = messages)
request_body_json <- toJSON(request_body, auto_unbox = TRUE)

response <- httr::POST(api_url,
                       httr::add_headers(`Content-Type` = "application/json",
                                         `api-key` = api_key),
                       body = request_body_json)

if (http_error(response)) {
  cat("HTTP error:", response$status_code, "\n")
  print(content(response))
} else {
  response_content <- jsonlite::fromJSON(rawToChar(response$content))
  print(response_content)
  
  if (length(response_content$choices) > 0) {
    cat("Response:", response_content$choices[[1]]$message$content, "\n")
  }
}

Output :

The following code ran successfully in RStudio as below,

相关推荐
默 语7 分钟前
AI驱动软件测试全流程自动化:从理论到实践的深度探索
运维·人工智能·驱动开发·ai·自动化·ai技术·测试全流程
CoderJia程序员甲34 分钟前
GitHub 热榜项目 - 日榜(2025-10-18)
ai·开源·大模型·github·ai教程
后端小张4 小时前
[AI 学习日记] 深入解析MCP —— 从基础配置到高级应用指南
人工智能·python·ai·开源协议·mcp·智能化转型·通用协议
测试开发技术5 小时前
什么样的 prompt 是好的 prompt?
人工智能·ai·大模型·prompt
Jing_jing_X5 小时前
微信小程序开发踩坑记:从AI工具翻车到找到合适方案
人工智能·ai·小程序·产品运营·个人开发
迦蓝叶6 小时前
JAiRouter v1.0.0 正式发布:企业级 AI 服务网关的开源解决方案
java·运维·人工智能·网关·spring·ai·开源
长空任鸟飞_阿康6 小时前
Node.js 核心模块详解:fs 模块原理与应用
前端·人工智能·ai·node.js
武子康7 小时前
AI-调查研究-106-具身智能 机器人学习数据采集工具和手段:传感器、API、遥操作、仿真与真人示教全流程
人工智能·深度学习·机器学习·ai·系统架构·机器人·具身智能
武子康7 小时前
AI-调查研究-107-具身智能 强化学习与机器人训练数据格式解析:从状态-动作对到多模态轨迹标准
人工智能·深度学习·机器学习·ai·系统架构·机器人·具身智能
insight^tkk8 小时前
【Docker】记录一次使用docker部署dify网段冲突的问题
运维·人工智能·docker·ai·容器