Двойные сноски со вставленным сноской - PullRequest
0 голосов
/ 14 октября 2019

Я пытался связать некоторые таблицы в pdf.

Если добавить add_footnote в kable с вставленным текстом из функциональной переменной, сноска удваивается в LaTeX. My Test.Rnw:

\documentclass{article}
\usepackage{threeparttable}
\usepackage{booktabs}

\begin{document}
<<echo=F,warning=F, message=F>>=
library(knitr)
library(tidyverse)
library(kableExtra)

dt <- mtcars[1:5, 1:6]

fun_tab <- function(V, Title, Question, Measure){V <- enquo(V)
return(
kable(dt, format = "latex", booktabs = TRUE, caption = Title)
%>% add_footnote(c(paste0("Question (", V ,"): ", Question), Measure), threeparttable = T) # I have tried: str_c, paste, paste0
)}

fun_tab(cars, Title = "Lot of Cars", Question = "What do you know about cars?", Measure = "Nominal")
@
\end{document}

Результат выглядит как прикрепленное изображение.

Привет из Цюриха Бен

...