align $chat() input type (closes #67(

R/pal-class.R

@@ -13,9 +13,8 @@ Pal <- R6::R6Class(
 
       .stash_last_pal(self)
     },
-    chat = function(expr) {
-      request <- deparse(substitute(expr))
-      private$.chat(request)
+    chat = function(...) {
+      private$Chat$chat(...)
     },
     stream = function(expr) {
       request <- deparse(substitute(expr))
@@ -31,15 +30,6 @@ Pal <- R6::R6Class(
   ),
   private = list(
     Chat = NULL,
-    .chat = function(request, call = caller_env()) {
-      if (identical(request, "")) {
-        cli::cli_abort("Please supply a non-empty chat request.", call = call)
-      }
-      structure(
-        private$Chat$chat(paste0(request, collapse = "\n")),
-        class = c("pal_response", "character")
-      )
-    },
     .stream = function(request, call = caller_env()) {
       if (identical(request, "")) {
         cli::cli_abort("Please supply a non-empty chat request.", call = call)

man-roxygen/manual-interface.R

@@ -10,6 +10,6 @@
 #' Then, to submit a query, run:
 #'
 #' ```r
-#' pal_<%= role %>$chat({expr})
+#' pal_<%= role %>$chat({x})
 #' ```
 #' @md

tests/testthat/_snaps/pal-class.md

@@ -3,6 +3,6 @@
     Code
       cli_pal$chat()
     Condition
-      Error in `cli_pal$chat()`:
-      ! Please supply a non-empty chat request.
+      Error in `user_turn()`:
+      ! Must supply at least one input.
 

tests/testthat/test-pal-class.R

@@ -4,8 +4,7 @@ test_that("can find the previous pal", {
   withr::local_options(.pal_fn = NULL, .pal_args = NULL)
 
   cli_pal <- .init_pal("cli")
-  expect_no_error(response <- cli_pal$chat(stop("Error message here")))
-  expect_s3_class(response, "pal_response")
+  expect_no_error(response <- cli_pal$chat("stop(\"Error message here\")"))
 })
 
 test_that("chat errors informatively with no input", {
@@ -23,12 +22,12 @@ test_that("pal_chat effectively integrates system prompt", {
   withr::local_options(.pal_fn = NULL, .pal_args = NULL)
 
   cli_pal <- .init_pal("cli")
-  response <- cli_pal$chat(stop("Error message here"))
+  response <- cli_pal$chat("stop(\"Error message here\")")
   expect_true(grepl("cli_abort", response))
   expect_true(grepl("Error message here", response))
 
   testthat_pal <- .init_pal("testthat")
-  response <- testthat_pal$chat(expect_error(beep_bop_boop()))
+  response <- testthat_pal$chat("expect_error(beep_bop_boop())")
   expect_true(grepl("expect_snapshot", response))
   expect_true(grepl("beep_bop_boop", response))
 })