标题中的右对齐数字列

Question

它必须很简单并且已实现，但在任何地方都找不到。如何打印数字列右对齐的小标题？我尝试了几种方法，例如，

df <- tibble(
    col1 = rnorm(10) * sample(100, 10),
    col2 = rnorm(10) * sample(100, 10)
)
print(df, align = "right")
print(df, pillar.align = "right")

如果我转换为通常的data.frame，则默认为数字列右对齐。