获取 GPT-4 响应

该函数通过 ChatAnywhere API 发送请求并获取 GPT-4 模型的响应。

Usage

get_gpt4_response(
  user_prompt = NULL,
  system_prompt = "You are a helpful assistant.",
  model = "gpt-4o-mini",
  api_key = Sys.getenv("CHATANYWHERE_API_KEY"),
  base_url = "https://api.chatanywhere.tech/v1",
  output_format = "json_object"
)

Arguments

user_prompt

字符串，用户输入的提示。

system_prompt

字符串，系统提示，默认为 "You are a helpful assistant."。

model

字符串，指定使用的模型，默认为 "gpt-4o-mini"。

api_key

字符串，ChatAnywhere API 密钥，默认从环境变量 "CHATANYWHERE_API_KEY" 获取。

base_url

字符串，API 的基础 URL，默认为 "https://api.chatanywhere.tech"。

output_format

字符串，输出格式，默认为 "json_object"。

Value

字符串，GPT-4 模型生成的响应内容。

Examples

if (FALSE) { # \dontrun{
response <- get_gpt4_response("你好，请介绍一下自己。")
print(response)
} # }