mirror of
https://github.com/msberends/AMR.git
synced 2024-12-25 18:46:11 +01:00
unit tests
This commit is contained in:
parent
373e0cb32f
commit
d22b7f00da
2
R/freq.R
2
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')
|
||||
|
||||
|
@ -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}}}
|
||||
|
Loading…
Reference in New Issue
Block a user