Untitled

# La primera vez que ejecutemos este código
# install.packages("dplyr")
# install.packages("devtools")
# devtools::install_github("AlbertRapp/tidychatmodels")

library(dplyr)
library(tidychatmodels)

# =======================================================
# Breve descripción del sistema
# =======================================================

# Creamos el chat usando la API Key (permiso para conectarnos a Open AI)
chat <- create_chat("openai", "<OPEN AI KEY>")

# Le indicamos al sistema qué función realizará
chat <- chat %>% 
  add_model("gpt-3.5-turbo") %>% 
  add_params("temperature" = 0, "max_tokens" = 120) %>% 
  add_message(
    role = "system",
    message = "<DEFINE EL COMPORTAMIENTO DEL SISTEMA>"
  )

# Le hacemos una solicitud al sistema
chat <- chat %>% 
  add_message(
    role = "user",
    message = "<CONTIENE LA SOLICITUD DEL USUARIO>"
  )

# Nos conectamos a la API de Open AI (tener cuidado, cada llamada genera costo)
chat <- chat %>% perform_chat()

# Extraemos los mensajes desde la API de Open AI
messages <- chat %>% extract_chat(silent = TRUE)
messages[nrow(messages), "message"]