r - 打印带有分栏符的小标题，如 v1.3.0 所示

Question

使用最新版本的tibble，当设置width = Inf时，宽tibble的输出无法正确显示。

根据我对以前版本的测试，宽标题打印得很好，直到 1.3.0 之后的版本。这就是我希望打印的输出，如下所示:

...但这就是使用最新版本的 tibble 的样子:

我对旧的资源进行了修改，但没有成功。我想将其合并到一个包中，以便解决方案应该通过 R CMD 检查。当我刚刚从 tibble v1.3.0 复制大量函数时，我设法恢复了旧的行为，但无法通过检查。

有一个开放的 issue on Github与这个问题相关，但显然“不是高优先级”。有没有办法在新版本中正确打印小标题？

Answer 1

尝试一下这个功能:

print_width_inf <- function(df, n = 6) {
  df %>%
    head(n = n) %>%
    as.data.frame() %>%
    tibble:::shrink_mat(width = Inf, rows = NA, n = n, star = FALSE) %>%
    `[[`("table") %>%
    print()
}