R 打印一个带有下划线的3位数组的单个大数字，如在TIBLE中？

例如：

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

#应该安装tidyverse软件包
需要（TIBLE）
种子集（20180819）
感谢HPlieniger，我可以回答我自己的问题

require(pillar)
pillar(123456789)

您可以查看源代码我花了一些时间查看源代码，但我不知道在何处以及如何完成这是由支柱包完成的，请参阅
require(pillar)
pillar(123456789)