if (FALSE) {
agent <- setupAgent(name="openai",type="chat",model="gpt-4",
ai_api_key=Sys.getenv("OPENAI_API_KEY"))
prompt <- "tell me a joke"
response <- sendPrompt(agent, prompt,context="")
# increase tokens, it is important for getting longer responses
response <- sendPrompt(agent,prompt,context="",return.type="text", max_tokens = 500)
# get previous messages into the context
prompt="what about 2010?"
response <- sendPrompt(agent,prompt,context="",
return.type="text",
previous.msgs=list(
list(
"role" = "user",
"content" = "Who won the world
series in 2020?"
),
list(
"role" = "assistant",
"content" = "The Los Angeles Dodgers"
)
)
)
}
Run the code above in your browser using DataLab