OpenAI API 调用 R 版简介

本项目提供了一个基于 R 语言的轻量级脚本，用于轻松调用 OpenAI 的 Chat Completion API。

主要功能

• 环境安全：支持从系统环境变量读取 API Key，避免硬编码敏感信息。
• 灵活配置：允许用户自定义模型名称（如 gpt-3.5-turbo, gpt-4）和最大生成 token 数。
• 错误处理：内置 HTTP 状态码检查，当 API 返回错误时会抛出清晰的异常信息。
• 依赖精简：仅依赖 httr 和 jsonlite 两个常用包，易于部署。

使用前准备

1. 确保已安装 R 语言环境。
2. 安装依赖包：install.packages(c("httr", "jsonlite"))。
3. 设置环境变量 OPENAI_API_KEY 为您的真实密钥。
4. 将 main.R 中的示例代码取消注释即可运行测试。

结果展示

本部分描述代码运行后的预期输入与输出行为。

场景一：正常调用

• 输入操作：

用户在 R 控制台或脚本中执行以下代码：
R user_input <- "太阳为什么是热的？" ai_response <- call_openai_api(user_input, model = "gpt-3.5-turbo") print(ai_response)

• 预期输出：

控制台将打印出一段由 AI 生成的自然语言文本，内容大致为：

"太阳之所以是热的，是因为其核心正在进行核聚变反应。在这个过程中，氢原子核融合成氦原子核，释放出巨大的能量，这些能量以光和热的形式辐射出来，使得太阳表面温度极高。"

场景二：缺少 API 密钥

• 输入操作：

用户未设置环境变量 OPENAI_API_KEY 直接运行脚本。

• 预期输出：

程序终止并抛出错误信息：

Error: 未找到 OPENAI_API_KEY 环境变量，请设置后再运行。

场景三：API 请求失败（如配额不足或网络错误）

• 输入操作：

用户使用无效的 API Key 或网络连接中断时调用函数。

• 预期输出：

程序终止并抛出包含具体 HTTP 状态码的错误信息，例如：

Error: API 请求失败：Unauthorized (401)