remove special case for longtable. The pagewise footnote is not feasible.
diff --git a/R/footnote.R b/R/footnote.R
index fe5d4f3..b7e58c2 100644
--- a/R/footnote.R
+++ b/R/footnote.R
@@ -187,9 +187,6 @@
footnote_latex <- function(kable_input, footnote_table, footnote_as_chunk) {
table_info <- magic_mirror(kable_input)
out <- enc2utf8(as.character(kable_input))
- if (table_info$tabular == "longtable") {
- return()
- }
footnote_text <- latex_tfoot_maker(footnote_table, footnote_as_chunk,
table_info$ncol)
out <- sub(table_info$end_tabular,
diff --git a/tests/visual_tests/footnote_latex.Rmd b/tests/visual_tests/footnote_latex.Rmd
index 718d057..39ddc63 100644
--- a/tests/visual_tests/footnote_latex.Rmd
+++ b/tests/visual_tests/footnote_latex.Rmd
@@ -9,12 +9,15 @@
library(knitr)
library(kableExtra)
-dt <- mtcars[1:5, 1:2]
+dt <- mtcars[, 1:2]
colnames(dt)[1] <- paste0("mpg", footnote_marker_alphabet(2, "latex"))
+```
+
+```{r}
dt %>%
kable("latex", caption = paste0("test", footnote_marker_symbol(1, "latex")),
- booktabs = T, escape = F) %>%
+ booktabs = T, escape = F, longtable = T) %>%
footnote(NULL, c("number 1; ", "number 2. "), c("a 1; ", "a 2."), c("s 1; ", "s 2."),
number_title = "special: ", alphabet_title = "abc: ",
footnote_as_chunk = T)