diff --git a/R/tt_toString.R b/R/tt_toString.R index 784e1903f..24f223b53 100644 --- a/R/tt_toString.R +++ b/R/tt_toString.R @@ -531,7 +531,9 @@ get_formatted_fnotes <- function(tt) { if(lentl == 0) { tl <- rep("", nli) } else if(lentl > nli) { - tl <- paste0(tl, collapse = "\n") + tl_tmp <- paste0(tl, collapse = "\n") + tl <- rep("", nli) + tl[length(tl)] <- tl_tmp } else if (lentl < nli) { # We want topleft alignment that goes to the bottom! tl <- c(rep("", nli - lentl), tl)