feat: Add chat_enable_bookmarking(id, client, ..., update_on_input = TRUE, update_on_response = TRUE)

.Rbuildignore

@@ -10,3 +10,4 @@
 ^_dev$
 ^cran-comments\.md$
 ^CRAN-SUBMISSION$
+^_dev$

DESCRIPTION

@@ -26,6 +26,7 @@ Imports:
     rlang,
     shiny (>= 1.10.0)
 Suggests:
+    ellmer,
     testthat (>= 3.0.0)
 Config/Needs/website: tidyverse/tidytemplate
 Config/testthat/edition: 3

NAMESPACE

@@ -4,6 +4,7 @@ export(chat_app)
 export(chat_append)
 export(chat_append_message)
 export(chat_clear)
+export(chat_enable_bookmarking)
 export(chat_mod_server)
 export(chat_mod_ui)
 export(chat_ui)

R/chat.R

@@ -69,7 +69,7 @@ chat_deps <- function() {
 #'
 #' server <- function(input, output, session) {
 #'   observeEvent(input$chat_user_input, {
-#'     # In a real app, this would call out to a chat model or API,
+#'     # In a real app, this would call out to a chat client or API,
 #'     # perhaps using the 'ellmer' package.
 #'     response <- paste0(
 #'       "You said:\n\n",
@@ -78,6 +78,7 @@ chat_deps <- function() {
 #'       "</blockquote>"
 #'     )
 #'     chat_append("chat", response)
+#'     chat_append("chat", stream)
 #'   })
 #' }
 #'
@@ -165,7 +166,7 @@ chat_ui <- function(
 #' `chat_async`, and `stream_async` methods, respectively).
 #'
 #' This function should be called from a Shiny app's server. It is generally
-#' used to append the model's response to the chat, while user messages are
+#' used to append the client's response to the chat, while user messages are
 #' added to the chat UI automatically by the front-end. You'd only need to use
 #' `chat_append(role="user")` if you are programmatically generating queries
 #' from the server and sending them on behalf of the user, and want them to be
@@ -334,7 +335,7 @@ chat_append_message <- function(
   check_active_session(session)
 
   if (!is.list(msg)) {
-    rlang::abort("msg must be a named list with 'role' and 'content' fields")
+    rlang::abort("`msg` must be a named list with 'role' and 'content' fields")
   }
   if (!isTRUE(msg[["role"]] %in% c("user", "assistant"))) {
     warning("Invalid role argument; must be 'user' or 'assistant'")
@@ -408,6 +409,7 @@ chat_append_stream <- function(
   session = getDefaultReactiveDomain()
 ) {
   result <- chat_append_stream_impl(id, stream, role, session)
+  result <- chat_update_bookmark(id, result, session = session)
   # Handle erroneous result...
   promises::catch(result, function(reason) {
     chat_append_message(
@@ -424,6 +426,7 @@ chat_append_stream <- function(
       session = session
     )
   })
+
   # ...but also return it, so the caller can also handle it if they want. Note
   # that we're not returning the result of `promises::catch`; we want to return
   # a rejected promise (so the caller can see the error) that was already