feat(pkg-r): Use cli for errors and warnings

pkg-r/DESCRIPTION

@@ -16,6 +16,7 @@ Depends:
     R (>= 4.1.0)
 Imports:
     bslib,
+    cli,
     DBI,
     duckdb,
     ellmer (>= 0.3.0),

pkg-r/R/QueryChat.R

@@ -155,7 +155,7 @@ QueryChat <- R6::R6Class(
 
       # Validate table name
       if (!grepl("^[a-zA-Z][a-zA-Z0-9_]*$", table_name)) {
-        rlang::abort(
+        cli::cli_abort(
           "Table name must begin with a letter and contain only letters, numbers, and underscores"
         )
       }
@@ -168,7 +168,7 @@ QueryChat <- R6::R6Class(
       self$greeting <- greeting
 
       if (is.null(greeting)) {
-        rlang::warn(c(
+        cli::cli_warn(c(
           "No greeting provided; the LLM will be invoked at conversation start to generate one.",
           "*" = "For faster startup, lower cost, and determinism, please save a greeting and pass it to QueryChat$new().",
           "i" = "You can generate a greeting with $generate_greeting()."
@@ -196,7 +196,7 @@ QueryChat <- R6::R6Class(
 
       if (cleanup) {
         shiny::onStop(function() {
-          message("Closing data source...")
+          cli::cli_inform("Closing data source...")
           self$cleanup()
         })
       }
@@ -455,7 +455,7 @@ QueryChat <- R6::R6Class(
     #' }
     server = function(session = shiny::getDefaultReactiveDomain()) {
       if (is.null(session)) {
-        rlang::abort(
+        cli::cli_abort(
           "$server() must be called within a Shiny server function."
         )
       }

pkg-r/R/data_source.R

@@ -21,7 +21,7 @@ as_querychat_data_source.data.frame <- function(x, table_name = NULL, ...) {
     # Infer table name from dataframe name, if not already added
     table_name <- deparse(substitute(x))
     if (is.null(table_name) || table_name == "NULL" || table_name == "x") {
-      rlang::abort(
+      cli::cli_abort(
         "Unable to infer table name. Please specify `table_name` argument explicitly."
       )
     }
@@ -31,7 +31,7 @@ as_querychat_data_source.data.frame <- function(x, table_name = NULL, ...) {
     length(table_name) == 1 &&
     grepl("^[a-zA-Z][a-zA-Z0-9_]*$", table_name, perl = TRUE)
   if (!is_table_name_ok) {
-    rlang::abort(
+    cli::cli_abort(
       "`table_name` argument must be a string containing a valid table name."
     )
   }
@@ -55,18 +55,16 @@ as_querychat_data_source.DBIConnection <- function(x, table_name, ...) {
     # Character string - keep as is
   } else {
     # Invalid input
-    rlang::abort(
+    cli::cli_abort(
       "`table_name` must be a single character string or a DBI::Id object"
     )
   }
 
   # Check if table exists
   if (!DBI::dbExistsTable(x, table_name)) {
-    rlang::abort(paste0(
-      "Table ",
-      DBI::dbQuoteIdentifier(x, table_name),
-      " not found in database. If you're using a table in a catalog or schema, pass a DBI::Id",
-      " object to `table_name`"
+    cli::cli_abort(c(
+      "Table {DBI::dbQuoteIdentifier(x, table_name)} not found in database.",
+      "i" = "If you're using a table in a catalog or schema, pass a DBI::Id object to `table_name`"
     ))
   }
 

pkg-r/R/querychat_module.R

@@ -60,7 +60,7 @@ mod_server <- function(id, data_source, greeting, client) {
       greeting
     } else {
       # Generate greeting on the fly if none provided
-      rlang::warn(c(
+      cli::cli_warn(c(
         "No greeting provided; generating one now. This adds latency and cost.",
         "i" = "Consider using $generate_greeting() to create a reusable greeting."
       ))

pkg-r/R/utils-ellmer.R

@@ -36,8 +36,8 @@ as_querychat_client <- function(client = NULL) {
   }
 
   if (!inherits(client, "Chat")) {
-    rlang::abort(
-      "`client` must be an {ellmer} Chat object or a function that returns one.",
+    cli::cli_abort(
+      "`client` must be an {ellmer} Chat object or a function that returns one."
     )
   }