Add chat messages for chatGPT

chatGPT의 chat completion messages에 메시지를 추가

# S3 method for messages
add(
  messages,
  assistant = NULL,
  user = NULL,
  assistant_tokens = NULL,
  user_tokens = NULL,
  ...
)

Arguments

messages

messages. chatGPT와 chat completion을 수행하기 위한 메시지 객체.

assistant

character. assistant role을 갖는 메시지.

user

character. user role을 갖는 메시지.

assistant_tokens

integer. assistant 메시지로 산정된 completion tokens.

user_tokens

integer. user 메시지로 산정된 prompt tokens.

Value

messages object.

Details

assistant_tokens과 user_tokens는 사용자가 정의하는 것이 아니라, API를 통한 호출과정에서 모델의 연산 결과로서의 토큰 사용량 정보를 반환하기 위한 용도입니다.

Examples

if (FALSE) {
# 메시지 생성
msg <- create_messages("Who won the world series in 2020?", "You are a helpful assistant.")
msg

# 메시지 추가
library(dplyr)

msg <- msg %>%
  add(assistant = "The Los Angeles Dodgers won the World Series in 2020.",
      user = "Where was it played?")
msg

}