kableExtra：下一页继续 longtable

Question

我使用kableExtra了longtable下面的代码。

library(knitr)
library(kableExtra)

long_dt <- rbind(mtcars, mtcars)

kable(
      long_dt, 
      format    = "latex", 
      longtable = T, 
      booktabs  = T, 
      caption   = "Longtable"
      ) %>%
add_header_above(c(" ", "Group 1" = 5, "Group 2" = 6)) %>%
kable_styling(latex_options = c("repeat_header"))

输出是

我想知道如何在表格底部添加文本（下一页继续...），如果它跨越到下一页。

Answer 1

对此有一个 kableExtra 论据。我还没有检查过，但我想在第一次发布问题时它不可用。

从文档：

repeat_header_continued：T/F 或文本字符串。是否在 longtable 的第二页上放置一个连续的标记。如果您输入文字，我们将使用此文字作为“继续”标记。

默认值是(continued...)所以对于您的特定情况，它将是：

library(knitr)
library(kableExtra)

long_dt <- rbind(mtcars, mtcars)

kable(
      long_dt, 
      format    = "latex", 
      longtable = T, 
      booktabs  = T, 
      caption   = "Longtable"
      ) %>%
add_header_above(c(" ", "Group 1" = 5, "Group 2" = 6)) %>%
kable_styling(latex_options = c("repeat_header"),
              repeat_header_continued = "\\textit{(Continued on Next Page...)}")

输出：