打印带有下划线的 3 位数组的单个大数字，如 tibble？

Question

示例：

# 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，但带下划线的数字在Whosebug上很难生成

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

Answer 1

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

require(pillar)
pillar(123456789)

Print a single large number with underlined 3-digit groups as in a tibble?