R语言【cli】——通过cli_abort用 cli 格式的内容显示错误、警告或信息，内部调用cli_bullets和inline-makeup

cli_abort(message,...,call = .envir,.envir = parent.frame(),.frame = .envir
)

先从那些不需要下大力气理解的参数入手：

参数【.envir】：进行万能表达式编译的环境。

参数【.frame】：抛出上下文。默认用于参数【.trace_bottom】，当参数【.internal】为 TRUE 时，用于确定在内部错误中提及的内部软件包。

参数【call】：当前运行函数的执行环境，例如 call = caller_env()。相应的函数调用会被检索出来，并在错误信息中作为错误源被提及。您只需要在从辅助函数抛出条件时提供调用即可，而无需在信息中提及。

参数【...】：传递给 rlang::abort()，rlang::warn() 或 rlang::warn() 的参数。

以上都是不太需要进行修改的参数，所以本文的重点将放在参数【message】上。只需将希望输出的文本信息传递给参数【message】即可：

cli_abort(c("this is my error! Do not mess with R!"))

输出了警告信息：

Error:
! this is my error! Do not mess with R!
Run `rlang::last_trace()` to see where the error occurred.

参数【message】：它是通过调用 cli_bullets() 进行格式化的。进一步地，还需要调用 inline-makeup（内联标记）。

Package cli version 3.6.2

cli_bullets() 中内置定义了许多标记主题类型，只需要使用定义的主题名称：

cli_bullets(c("noindent"))

noindent

cli_bullets(c(" " = "indent"))

  indent

cli_bullets(c("*" = "bullet"))

• bullet

cli_bullets(c(">" = "arrow"))

→ arrow

cli_bullets(c("v" = "success"))

✔ success

cli_bullets(c("x" = "danger"))

✖ danger

cli_bullets(c("!" = "warning"))

! warning

cli_bullets(c("i" = "info"))

ℹ info

cli_bullets() 和 cli_abort()的标记对比

cli_bullets(c("noindent"," " = "indent","*" = "bullet",">" = "arrow","v" = "success","x" = "danger","!" = "warning","i" = "info" ))
cli_abort(c("noindent"," " = "indent","*" = "bullet",">" = "arrow","v" = "success","x" = "danger","!" = "warning","i" = "info" ))

inline-markup 可以让输出的信息更加多元，更加清晰。由 R包cli 输出的文本都支持万能语法插值，详见 glue::glue()。cli 支持通过使用类型名称对部分文本内容添加格式。例如：

cli_text("This is {.emph important}.")

上述代码给文本 "important" 添加了一个格式 "emph"。注意本例中大括号内的字符串通常不会是一个可运行的R表达式。如果打算运用插值，可以再使用一个大括号 {} ：

adjective <- "great"
cli_text("This is {.emph {adjective}}.")

每个inline类总会在内部创建一个span元素。所以使用主题时，可以通过span.emph 的CSS选择器来改变文本的强调显示格式：

cli_div(theme = list(span.emph = list(color = "red")))
adjective <- "nice and red"
cli_text("This is {.emph {adjective}}.")