I am attempting to create a table which has citations built into the table. Here is a visual of what I am trying to achieve.
Image may be NSFW.
Clik here to view.
As far as I know you can only add footnotes in rowvars or colvars in kableExtra (love that package).
# Create a dataframe called dfComponent <- c('N2','P3')Latency <- c('150 to 200ms', '625 to 800ms')Location <- c('FCz, Fz, Cz', 'Pz, Oz')df <- data.frame(Component, Latency, Location)Below is my attempt after reading through kableExtra's Git page
# Trying some code taken from the kableExtra guiderow.names(df) <- df$Componentdf[1] <- NULLdt_footnote <- dfnames(dt_footnote)[1] <- paste0(names(dt_footnote)[2], footnote_marker_symbol(1))row.names(dt_footnote)[2] <- paste0(row.names(dt_footnote)[2], footnote_marker_alphabet(1))kable(dt_footnote, align = "c", # Remember this escape = F escape = F, "latex", longtable = T, booktabs = T, caption = "My Table Name") %>% kable_styling(full_width = F) %>% footnote(alphabet = "Jones, 2013", symbol = "Footnote Symbol 1; ", footnote_as_chunk = T)Image may be NSFW.
Clik here to view.
But this code only works on the headers. The ultimate goal would be if I could use a BibTex reference such as @JonesFunctionalMixedEffectModels2013 such that the final part of the code would look like
footnote(alphabet = @davidsonFunctionalMixedEffectModels2009, symbol = "Footnote Symbol 1; ", footnote_as_chunk = T)Anyone have any ideas?
Thanks
