unit tests

This commit is contained in:
dr. M.S. (Matthijs) Berends 2018-11-16 22:22:42 +01:00
parent 373e0cb32f
commit d22b7f00da
2 changed files with 2 additions and 2 deletions

View File

@ -544,7 +544,7 @@ diff.frequency_tbl <- function(x, y, ...) {
#' @importFrom crayon bold silver
#' @export
print.frequency_tbl <- function(x, nmax = getOption("max.print.freq", default = 15),
markdown = !nteractive(), header = !markdown, ...) {
markdown = !interactive(), header = !markdown, ...) {
opt <- attr(x, 'opt')

View File

@ -20,7 +20,7 @@ freq(x, ..., sort.count = TRUE, nmax = getOption("max.print.freq"),
top_freq(f, n)
\method{print}{frequency_tbl}(x, nmax = getOption("max.print.freq",
default = 15), ...)
default = 15), markdown = !nteractive(), header = !markdown, ...)
}
\arguments{
\item{x}{vector of any class or a \code{\link{data.frame}}, \code{\link{tibble}} (may contain a grouping variable) or \code{\link{table}}}