我与您分享我的代码下面从R从OPENAI chatgpt API获得POST请求的响应：

param <- list(model = "gpt-3.5-turbo",
              messages = c("role" = "user", 
                           "content" = "Hello"))

result <- POST("https://api.openai.com/v1/chat/completions",
               body = param,
               add_headers(Authorization=openai_secret_key),
               encode = "json")

结果如下：
回复[https：//api.openai.com/v1/chat/completions]日期：2023年3月2日16：28状态：400内容类型：应用程序/json大小：158 B {“错误”：{“留言”：“”用户“不属于”对象“-”消息.0“类型”“，类型””：“无效请求错误”，“参数”：空，“代码”：空} }
因此，用户和内容部分不起作用，但模型起作用
多谢了
在postman中，我让这个JSON工作，但在R中却无法工作

{
   "model":"gpt-3.5-turbo",
   "messages":[
      {
         "role":"user",
         "content":"Hello!"
      }
   ]
}