if (FALSE) {
Sys.setenv(OPENAI_API_KEY = "sk-xxxxxx")
# Read latest messages (newest first)
msgs <- list_messages("thread_abc123")
cat("Assistant reply:", msgs$data[[1]]$content[[1]]$text$value)
# Print full conversation chronologically
msgs <- list_messages("thread_abc123", order = "asc")
for (m in msgs$data) {
cat(toupper(m$role), ":", m$content[[1]]$text$value, "\n\n")
}
}
Run the code above in your browser using DataLab