freq - print title bold in markdown

This commit is contained in:
dr. M.S. (Matthijs) Berends 2018-10-22 13:06:54 +02:00
parent c2a93b46db
commit 9c56257da1
1 changed files with 4 additions and 1 deletions

View File

@ -543,8 +543,11 @@ print.frequency_tbl <- function(x, nmax = getOption("max.print.freq", default =
title <- paste("Frequency table", title)
# bold title
if (opt$tbl_format == "pandoc") {
title <- bold(title) # only bold in regular printing
title <- bold(title)
} else if (opt$tbl_format == "markdown") {
title <- paste0("**", title, "**")
}
if (opt$header == TRUE) {