chatgpt <- function(prompt)
response <- httr::POST(
url = "https://api.openai.com/v1/chat/completions",
add_headers(Authorization = paste("Bearer",
Sys.getenv("OPENAI_API_KEY"))),
content_type_json(), encode = "json",
body = list(model = "gpt-4o-mini",
messages = list(list(role = "user", content = prompt)))
)
return(respose)
chatgpt("Quais os principais museus de Fortaleza?")