set_conversation_system_message {PacketLLM} | R Documentation |
Sets the system message for the conversation with the given ID
Description
Updates the system message (instructions provided to the language model) for a specific conversation.
Usage
set_conversation_system_message(id, message)
Arguments
id |
Character string. The ID of the conversation. |
message |
Character string. The new system message content (must be a single string). |
Value
Logical. TRUE
if the system message was successfully updated. FALSE
if the conversation does not exist or if the provided message
is not a
single character string.
Examples
# Setup
reset_history_manager()
conv_sys_id <- create_new_conversation()
initial_sys_msg <- get_conversation_data(conv_sys_id)$system_message
print(paste("Initial system message:", initial_sys_msg)) # Default message
# Set a valid system message
new_message <- "You are an expert R programmer. Respond only with code."
result_valid <- set_conversation_system_message(conv_sys_id, new_message)
print(paste("Valid set successful:", result_valid)) # TRUE
msg_after_set <- get_conversation_data(conv_sys_id)$system_message
print(paste("System message after set:", msg_after_set))
# Try setting an invalid message (e.g., not a single string)
result_invalid <- set_conversation_system_message(conv_sys_id, list("not a string"))
print(paste("Invalid set successful:", result_invalid)) # FALSE
# Try setting an invalid message (vector of strings)
result_invalid_vec <- set_conversation_system_message(conv_sys_id, c("Line 1", "Line 2"))
print(paste("Invalid vector set successful:", result_invalid_vec)) # FALSE
# Check message after invalid attempts
final_msg_after_invalid <- get_conversation_data(conv_sys_id)$system_message # Unchanged
print(paste("System message after invalid attempts:", final_msg_after_invalid))
# Clean up
reset_history_manager()
[Package PacketLLM version 0.1.0 Index]