add footnotes to a flextable object. A symbol is appened where the footnote is defined and the note is appened in the footer part of the table.

footnote(
  x,
  i = NULL,
  j = NULL,
  value,
  ref_symbols = NULL,
  part = "body",
  inline = FALSE,
  sep = "; "
)

Arguments

x

a flextable object

i

rows selection

j

column selection

value

a call to function as_paragraph().

ref_symbols

character value, symbols to append that will be used as references to notes.

part

partname of the table (one of 'body', 'header', 'footer')

inline

whether to add footnote on same line as previous footnote or not

sep

inline = T, character string to use as a separator between footnotes

Illustrations

Examples

ft_1 <- flextable(head(iris)) ft_1 <- footnote( ft_1, i = 1, j = 1:3, value = as_paragraph( c("This is footnote one", "This is footnote two", "This is footnote three") ), ref_symbols = c("a", "b", "c"), part = "header") ft_1 <- valign(ft_1, valign = "bottom", part = "header") ft_1 <- autofit(ft_1) ft_2 <- flextable(head(iris)) ft_2 <- autofit(ft_2) ft_2 <- footnote( ft_2, i = 1, j = 1:2, value = as_paragraph( c("This is footnote one", "This is footnote two") ), ref_symbols = c("a", "b"), part = "header", inline = TRUE) ft_2 <- footnote( ft_2, i = 1, j = 3:4, value = as_paragraph( c("This is footnote three", "This is footnote four") ), ref_symbols = c("c","d"), part = "header", inline = TRUE) ft_2
#> a flextable object. #> col_keys: `Sepal.Length`, `Sepal.Width`, `Petal.Length`, `Petal.Width`, `Species` #> header has 1 row(s) #> body has 6 row(s) #> original dataset sample: #> Sepal.Length Sepal.Width Petal.Length Petal.Width Species #> 1 5.1 3.5 1.4 0.2 setosa #> 2 4.9 3.0 1.4 0.2 setosa #> 3 4.7 3.2 1.3 0.2 setosa #> 4 4.6 3.1 1.5 0.2 setosa #> 5 5.0 3.6 1.4 0.2 setosa