P281424/AMR
1
0
Fork 0
mirror of https://github.com/msberends/AMR.git synced 2025-07-08 16:42:10 +02:00
Code Releases Activity

unit test fail

Browse Source
This commit is contained in:
dr. M.S. (Matthijs) Berends
2018-11-16 21:57:55 +01:00
parent 4fcc2b409a
commit 373e0cb32f
2 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
R/freq.R
View File

@ -543,7 +543,8 @@ diff.frequency_tbl <- function(x, y, ...) {
#' @importFrom dplyr n_distinct
#' @importFrom crayon bold silver
#' @export
print.frequency_tbl <- function(x, nmax = getOption("max.print.freq", default = 15), ...) {
print.frequency_tbl <- function(x, nmax = getOption("max.print.freq", default = 15),
markdown = !nteractive(), header = !markdown, ...) {
opt <- attr(x, 'opt')
@ -584,6 +585,12 @@ print.frequency_tbl <- function(x, nmax = getOption("max.print.freq", default =
opt$tbl_format <- "pandoc"
}
}
if (!missing(markdown)) {
opt$tbl_format <- "markdown"
}
if (!missing(header)) {
opt$header <- header
}
if (trimws(title) == "") {
title <- "Frequency table"