如何打印R嵌套列表使其输出为可直接求值的格式化代码

可行方案整理 #

1. 优先推荐：使用constructive包 #

这是CRAN上专门用于输出人类友好、可直接执行的R对象字面量的工具，完美适配你的需求，自动处理嵌套缩进、换行规则，不会出现你提到的短列表被不合理拆行的问题。
使用代码：

# 安装依赖
install.packages("constructive")
library(constructive)

# 直接输出目标格式
construct(spec, style = styler::style_text)

输出结果和你给出的理想示例几乎完全一致，可直接复制作为代码运行。

2. 无依赖方案：调整base函数参数 #

如果不想安装第三方包，可以调整内置deparse函数的参数，增大换行阈值避免不必要的断行：

cat(paste(deparse(spec, width.cutoff = 120, indent = 2), collapse = "\n"))

调整后基本可以解决color项被拆成多行的问题，输出代码可直接求值。

3. 高度定制方案：自定义递归函数 #

如果需要适配Vega-Lite翻译的特殊格式要求，可以自己实现简单的递归打印逻辑，灵活调整缩进、换行阈值：

pretty_print_list <- function(x, indent_level = 0) {
  indent <- strrep(" ", indent_level * 2)
  # 非列表/空列表直接返回字面量
  if (!is.list(x) || length(x) == 0) return(deparse(x))
  # 生成所有子项的字符串
  sub_items <- mapply(
    function(k, v) sprintf("%s = %s", k, pretty_print_list(v, indent_level + 1)),
    names(x), x
  )
  # 子项总长度较短则放同一行
  if (sum(nchar(sub_items)) < 80) return(sprintf("list(%s)", paste(sub_items, collapse = ", ")))
  # 否则分行加缩进
  sub_indent <- strrep(" ", (indent_level + 1) * 2)
  sprintf(
    "list(\n%s%s\n%s)",
    sub_indent, paste(sub_items, collapse = paste0(",\n", sub_indent)),
    indent
  )
}

# 调用输出
cat(pretty_print_list(spec))

你可以根据实际需求调整换行阈值、缩进空格数等参数，完全匹配你们的业务场景。

内容的提问来源于stack exchange，提问作者metasoarous