Update font size footnote.R
Readd "\small" for the footnote size, keeping both options through the @param fixed_small_size.
diff --git a/R/footnote.R b/R/footnote.R
index 61d36f4..41e6925 100644
--- a/R/footnote.R
+++ b/R/footnote.R
@@ -24,6 +24,10 @@
#' threeparttable. Threeparttable will force the width of caption and
#' footnotes be the width of the original table. It's useful when you have
#' long paragraph of footnotes.
+#' @param fixed_small_size T/F When you want to keep the footnote small after
+#' specifying large font size with the kable_styling() (e.g. ideal font for headers
+#' and table content with small font in footnotes).
+#' keeping the footnote small.
#' @param general_title Section header for general footnotes. Default is
#' "Note: ".
#' @param number_title Section header for number footnotes. Default is "".
@@ -48,6 +52,7 @@
footnote_as_chunk = FALSE,
escape = TRUE,
threeparttable = FALSE,
+ fixed_small_size = FALSE,
general_title = "Note: ",
number_title = "",
alphabet_title = "",
@@ -252,7 +257,7 @@
out <- sub(paste0("\\\\begin\\{", table_info$tabular, "\\}"),
paste0("\\\\begin{ThreePartTable}\n\\\\begin{TableNotes}",
ifelse(footnote_as_chunk, "[para]", ""),
- "\n", footnote_text,
+ ifelse(fixed_small_size,"\n\\\\small\n","\n"), footnote_text,
"\n\\\\end{TableNotes}\n\\\\begin{",
table_info$tabular, "}"),
out)
@@ -280,7 +285,7 @@
paste0("\\\\end{", table_info$tabular,
"}\n\\\\begin{tablenotes}",
ifelse(footnote_as_chunk, "[para]", ""),
- "\n", footnote_text,
+ ifelse(fixed_small_size,"\n\\\\small\n","\n"), footnote_text,
"\n\\\\end{tablenotes}\n\\\\end{threeparttable}"),
out)
}