Modernize user messaging with cli package (#107)

* Fix package dependencies and modernize CI infrastructure

- Add missing R6 dependency to resolve package loading issues
- Add grid to Suggests for execution context image display
- Fix URL inconsistencies between pkgdown config and README
- Update GitHub Actions to latest versions (checkout@v4, pr-fetch@v2)
- Add package validation for suggested dependencies in execution context
- Add Claude Code artifacts to gitignore

🤖 Generated with [Claude Code](https://claude.ai/code)

Co-Authored-By: Claude <noreply@anthropic.com>

* Modernize user messaging with cli package

Replace base R messaging functions with cli equivalents for better UX:
- Convert stop() calls to cli::cli_abort() with argument highlighting
- Replace warning() with cli::cli_warn() including pluralization support
- Enhance error messages with structured formatting and context bullets
- Add semantic styling for arguments, values, functions, and paths
- Improve library installation feedback with better progress messaging
- Revert codecov badge to original repository reference

🤖 Generated with [Claude Code](https://claude.ai/code)

Co-Authored-By: Claude <noreply@anthropic.com>

* Remove R CMD check artifacts

Clean up temporary R CMD check files that shouldn't be tracked in version control.

🤖 Generated with [Claude Code](https://claude.ai/code)

Co-Authored-By: Claude <noreply@anthropic.com>

---------

Co-authored-by: Zac Davies <zac@databricks.com>
Co-authored-by: Claude <noreply@anthropic.com>

Author: 3 people

R/clusters.R

@@ -181,9 +181,10 @@ db_cluster_create <- function(
   } else if (is.gcp_attributes(cloud_attrs)) {
     body[["gcp_attributes"]] <- unclass(cloud_attrs)
   } else {
-    stop(
-      "Please use `aws_attributes()`, `azure_attributes()`, or `gcp_attributes()` to specify `cloud_attr`"
-    )
+    cli::cli_abort(c(
+      "Invalid cloud attributes specification:",
+      "i" = "Use {.fn aws_attributes}, {.fn azure_attributes}, or {.fn gcp_attributes} for {.arg cloud_attr}"
+    ))
   }
 
   req <- db_request(
@@ -319,9 +320,10 @@ db_cluster_edit <- function(
     } else if (is.azure_attributes(cloud_attrs)) {
       body[["azure_attributes"]] <- unclass(cloud_attrs)
     } else {
-      stop(
-        "Please use `aws_attributes()` or `azure_attributes()` to specify `cloud_attr`"
-      )
+      cli::cli_abort(c(
+        "Invalid cloud attributes specification:",
+        "i" = "Use {.fn aws_attributes} or {.fn azure_attributes} for {.arg cloud_attr}"
+      ))
     }
   }
 
@@ -574,7 +576,7 @@ db_cluster_resize <- function(
   perform_request = TRUE
 ) {
   if (is.null(num_workers) && is.null(autoscale)) {
-    stop("Must specify one of `num_workers` or `autoscale`.")
+    cli::cli_abort("Must specify either {.arg num_workers} or {.arg autoscale}.")
   }
 
   body <- list(
@@ -968,12 +970,12 @@ get_latest_dbr <- function(
   # don't allow impossible combinations
   if (gpu) {
     if (!ml) {
-      stop("GPU runtime only available for ML versions")
+      cli::cli_abort("{.arg gpu} runtime only available for {.arg ml} versions")
     }
   }
 
   if ((gpu || ml) && photon) {
-    stop("Cannot use ML/GPU runtimes with Photon")
+    cli::cli_abort("Cannot use {.arg ml}/{.arg gpu} runtimes with {.arg photon}")
   }
 
   runtimes <- db_cluster_runtime_versions(host = host, token = token)

R/data-structures.R

@@ -1471,7 +1471,7 @@ job_tasks <- function(...) {
   obj <- list(...)
 
   if (length(obj) == 0) {
-    stop("Must specify at least one task")
+    cli::cli_abort("Must specify at least one task")
   }
 
   # check that all inputs are job tasks
@@ -1741,7 +1741,7 @@ delta_sync_index_spec <- function(
   }
 
   if (is.null(embedding_vector_columns) & is.null(embedding_source_columns)) {
-    stop("Must specify at least one embedding vector or source column")
+    cli::cli_abort("Must specify at least one embedding vector or source column")
   }
 
   obj <- list(
@@ -1835,15 +1835,15 @@ direct_access_index_spec <- function(
   }
 
   if (is.null(embedding_vector_columns) & is.null(embedding_source_columns)) {
-    stop("Must specify at least one embedding vector or source column")
+    cli::cli_abort("Must specify at least one embedding vector or source column")
   }
 
   if (is.null(schema)) {
-    stop("`schema` must be present.")
+    cli::cli_abort("{.arg schema} must be present.")
   }
 
   if (!(is.list(schema) && rlang::is_named(schema))) {
-    stop("`schema` must be a named list.")
+    cli::cli_abort("{.arg schema} must be a named list.")
   }
 
   obj <- list(

R/execution-context.R

@@ -143,7 +143,7 @@ db_context_command_run <- function(
 
   # only can have one of `command` or `command_file`
   if (!is.null(command) && !is.null(command_file)) {
-    stop("Must `command` OR `command_file` not both.")
+    cli::cli_abort("Must specify {.arg command} OR {.arg command_file}, not both.")
   }
 
   if (!is.null(command_file)) {

R/experiments.R

@@ -33,7 +33,7 @@ db_experiments_get <- function(name = NULL, id = NULL,
                                 perform_request = TRUE) {
 
   if (!is.null(name) && !is.null(id)) {
-    stop("Specify `name` or `id`, not both.")
+    cli::cli_abort("Specify {.arg name} or {.arg id}, not both.")
   }
 
   body <- list()

R/jobs.R

@@ -502,7 +502,7 @@ db_jobs_runs_list <- function(
   run_type <- match.arg(run_type, several.ok = FALSE)
 
   if (active_only && completed_only) {
-    stop("`active_only` and `completed_only` cannot both be `TRUE`.")
+    cli::cli_abort("{.arg active_only} and {.arg completed_only} cannot both be {.val TRUE}.")
   }
 
   body <- list(

R/lib-management.R

@@ -32,7 +32,7 @@ add_lib_path <- function(path, after, version = FALSE) {
 
   lib_path <- normalizePath(lib_path, "/")
 
-  message("primary package path is now ", lib_path)
+  cli::cli_alert_info("Primary package path is now {.path {lib_path}}")
   .libPaths(new = append(.libPaths(), lib_path, after = after))
   lib_path
 }

R/libraries.R

@@ -219,7 +219,7 @@ wait_for_lib_installs <- function(
 
     # if failures are not allowed and failur occurs then raise an error
     if (!allow_failures && "FAILED" %in% lib_statuses) {
-      stop("Libraries failed to install")
+      cli::cli_abort("Libraries failed to install on cluster")
     }
 
     if (!any(lib_statuses == "INSTALLING")) break
@@ -229,7 +229,7 @@ wait_for_lib_installs <- function(
 
   if (allow_failures && "FAILED" %in% lib_statuses) {
     num_failures <- sum(lib_statuses == "FAILED")
-    warning("Failed installs: ", num_failures)
+    cli::cli_warn("Failed to install {.val {num_failures}} librar{?y/ies}")
   }
 
   NULL

R/sql-query-execution.R

@@ -271,7 +271,7 @@ db_sql_exec_poll_for_success <- function(statement_id, interval = 1) {
     } else if (
       status$status$status$state %in% c("FAILED", "CLOSED", "CANCELED")
     ) {
-      stop(paste0("queries status: ", status$status$state))
+      cli::cli_abort("Query failed with status: {.val {status$status$state}}")
     }
   }
 

R/vector-search.R

@@ -226,7 +226,7 @@ db_vs_indexes_create <- function(name, endpoint, primary_key, spec,
     index_type <- "DIRECT_ACCESS"
     direct_access_index_spec <- spec
   } else {
-    stop("`spec` is invalid type, must be defined by either `delta_sync_index_spec()` or `direct_access_index_spec()`")
+    cli::cli_abort("{.arg spec} is invalid type, must be defined by either {.fn delta_sync_index_spec} or {.fn direct_access_index_spec}")
   }
 
   body <- list(

R/volume-fs.R

@@ -220,7 +220,7 @@ db_volume_dir_exists <- function(path,
 
 is_valid_volume_path <- function(path) {
   if (!grepl("^/Volumes/", path)) {
-    stop("`path` must start with `/Volumes/`")
+    cli::cli_abort("{.arg path} must start with {.path /Volumes/}")
   }
   path
 }