Update deps, remove elmer from example (for now)

Author: jcheng5

DESCRIPTION

@@ -16,13 +16,11 @@ Imports:
     bslib,
     coro,
     htmltools,
+    promises (>= 1.3.2),
     rlang,
-    shiny (> 1.9.1)
+    shiny (>= 1.10.0)
 Suggests:
-    promises,
     testthat (>= 3.0.0)
-Remotes:
-    rstudio/shiny
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.3.2

R/chat.R

@@ -167,24 +167,42 @@ chat_ui <- function(
 #'
 #' @examplesIf interactive()
 #' library(shiny)
+#' library(coro)
 #' library(bslib)
-#' library(elmer)
 #' library(shinychat)
-#'
+#' 
+#' # Dumbest chatbot in the world: ignores user input and chooses
+#' # a random, vague response. For a chatbot, try {elmer}.
+#' fake_chatbot <- async_generator(function(input) {
+#'   responses <- c(
+#'     "What does that suggest to you?",
+#'     "I see.",
+#'     "I'm not sure I understand you fully.",
+#'     "What do you think?",
+#'     "Can you elaborate on that?",
+#'     "Interesting question! Let's examine thi... **See more**"
+#'   )
+#' 
+#'   await(async_sleep(1))
+#'   for (chunk in strsplit(sample(responses, 1), "")[[1]]) {
+#'     yield(chunk)
+#'     await(async_sleep(0.02))
+#'   }
+#' })
+#' 
 #' ui <- page_fillable(
 #'   chat_ui("chat", fill = TRUE)
 #' )
-#'
-#' server <- function(input, output, session) {
-#'   chat <- chat_openai(model = "gpt-4o")
 #' 
+#' server <- function(input, output, session) {
 #'   observeEvent(input$chat_user_input, {
-#'     response <- chat$stream_async(input$chat_user_input)
+#'     response <- fake_chatbot(input$chat_user_input)
 #'     chat_append("chat", response)
 #'   })
 #' }
-#'
+#' 
 #' shinyApp(ui, server)
+#' 
 #' @export
 chat_append <- function(id, response, role = c("assistant", "user"), session = getDefaultReactiveDomain()) {
   role <- match.arg(role)