+ slap()

NAMESPACE

@@ -1,5 +1,6 @@
 # Generated by roxygen2: do not edit by hand
 
 export("%!%")
+export(slap)
 import(cli)
 import(rlang)

R/slap.R

@@ -24,11 +24,13 @@
 #' @name slap
 #' @export
 `%!%` <- function(expr, message) {
+  message <- enexpr(message)
+
   quo <- quo(
     withCallingHandlers(
       {{ expr }},
-      error = function(err) {
-        message <- {{ message }}
+      error = function(.__slap__.) {
+        message <- !!message
 
         error_call <- env$.__error_call__.
         if (is.null(error_call)) {
@@ -38,11 +40,16 @@
           error_call <- NULL
         }
 
-        cli::cli_abort(message, parent = err, call = error_call)
+        cli::cli_abort(message, parent = .__slap__., call = error_call)
       }
     )
   )
 
   env <- caller_env()
   eval_tidy(quo, env = env, data = list(env = env))
 }
+
+#' @export
+slap <- function(error_call = current_env()) {
+  get(".__slap__.", caller_env()) %||% cli_abort("{.fn slap()} can only be used on the rhs of a `%!%`.", call = error_call)
+}