From d22b7f00da53f60401b4efcdf7da03e4dcca082a Mon Sep 17 00:00:00 2001
From: "Matthijs S. Berends" <m.s.berends@umcg.nl>
Date: Fri, 16 Nov 2018 22:22:42 +0100
Subject: [PATCH] unit tests

---
 R/freq.R    | 2 +-
 man/freq.Rd | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/freq.R b/R/freq.R
index 9253cc4d..d754a3d9 100755
--- a/R/freq.R
+++ b/R/freq.R
@@ -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')
 
diff --git a/man/freq.Rd b/man/freq.Rd
index 80f75795..63fed46f 100755
--- a/man/freq.Rd
+++ b/man/freq.Rd
@@ -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}}}