transition to new system prompt interface (closes #66)

simonpcouch · Nov 25, 2024 · 91de88b · 91de88b
1 parent 633c38d
commit 91de88b
Showing 1 changed file with 1 addition and 5 deletions.
diff --git a/R/pal-class.R b/R/pal-class.R
@@ -7,12 +7,8 @@ Pal <- R6::R6Class(
       default_args <- getOption(".pal_args", default = list())
       args <- modifyList(default_args, args)
 
-      args$system_prompt <- get(
-        paste0(".pal_prompt_", role),
-        envir = pal_env()
-      )
-
       Chat <- rlang::eval_bare(rlang::call2(fn, !!!args, .ns = .ns))
+      Chat$set_system_prompt(get(paste0(".pal_prompt_", role), envir = pal_env()))
       private$Chat <- Chat
 
       .stash_last_pal(self)