last stop -> cli()

EmilHvitfeldt · EmilHvitfeldt · commit 828cecd6f98c · 2025-01-21T14:30:44.000-08:00
diff --git a/R/bagger.R b/R/bagger.R
@@ -97,7 +97,7 @@ bagger <- function(x, ...) {
 #' @export
 #' @rdname bagger
 bagger.default <- function(x, ...) {
-  stop("`bagger()` is not defined for a '", class(x)[1], "'.", call. = FALSE)
+  cli::cli_abort("{.fn bagger} is not defined for a {.cls {class(x)[1]}}.")
 }
 
 # XY method - data frame

Original file line number	Diff line number	Diff line change
`@@ -97,7 +97,7 @@ bagger <- function(x, ...) {`
`97`	`97`	`#' @export`
`98`	`98`	`#' @rdname bagger`
`99`	`99`	`bagger.default <- function(x, ...) {`
`100`		- stop("`bagger()` is not defined for a '", class(x)[1], "'.", call. = FALSE)
	`100`	`+ cli::cli_abort("{.fn bagger} is not defined for a {.cls {class(x)[1]}}.")`
`101`	`101`	`}`
`102`	`102`
`103`	`103`	`# XY method - data frame`