rm glubort fun

Author: dajmcdon

R/layers.R

@@ -144,11 +144,12 @@ pull_layer_name <- function(x) {
 
 #' @export
 #' @rdname layer-processors
-validate_layer <- function(x, ..., arg = "`x`", call = caller_env()) {
+validate_layer <- function(x, ..., arg = rlang::caller_arg(x),
+                           call = caller_env()) {
   rlang::check_dots_empty()
   if (!is_layer(x)) {
-    glubort(
-      "{arg} must be a frosting layer, not a {class(x)[[1]]}.",
+    cli::cli_abort(
+      "{arg} must be a frosting layer, not a {.cls {class(x)[[1]]}}.",
       .call = call
     )
   }

R/utils-cli.R

@@ -18,11 +18,6 @@ cli_warn <- function(..., .envir = parent.frame()) {
 }
 
 #' @importFrom rlang caller_env
-glubort <-
-  function(..., .sep = "", .envir = caller_env(), .call = .envir) {
-    rlang::abort(glue::glue(..., .sep = .sep, .envir = .envir), call = .call)
-  }
-
 cat_line <- function(...) {
   cat(paste0(..., collapse = "\n"), "\n", sep = "")
 }