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}}.")