kableExtra：继续下一页for 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或文本字符串。是否在延展表的第二页上加一个继续标记。如果您输入文字，我们将使用此文字作为“续”标记。

默认值为（续...），因此对于您的具体情况为：

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...)}")

输出：