打印一个带有下划线的 3 位数字组的大数字，就像在小标题中一样？答案

【问题标题】：Print a single large number with underlined 3-digit groups as in a tibble?打印一个带有下划线的 3 位数字组的大数字，就像在小标题中一样？
【发布时间】：2018-08-19 13:40:56
【问题描述】：

例子：

# tidyverse packages are supposed to be installed
require(tibble)
set.seed(20180819)
large_int <- floor(runif(1)*1e12)
as_tibble(large_int)

此示例代码在大多数控制台上生成（在 RStudio 内部）：

# A tibble: 1 x 1
     value
     <dbl>
1 697358430130
  ---   ---

实际上带下划线的数字更像是̲6̲9̲7358̲4̲3̲0130，但带下划线的数字在stackoverflow上很难生成

这是我的问题，如何在不使用 tibble 的情况下为值生成相同的输出？

【问题讨论】：

可以看源码github.com/tidyverse/tibble/tree/master/R
我花了一些时间查看源代码，但我不知道它在哪里以及如何完成
这是由pillar包完成的，见github.com/r-lib/pillar#usage

标签： r tidyverse largenumber tibble

【解决方案1】：

感谢 hplieniniger，我可以回答我自己的问题

require(pillar)
pillar(123456789)

【讨论】：