mirror of https://github.com/msberends/AMR.git
small error in freq
This commit is contained in:
parent
a8132922af
commit
63ba4b2980
7
R/freq.R
7
R/freq.R
|
@ -679,11 +679,10 @@ print.frequency_tbl <- function(x, nmax = getOption("max.print.freq", default =
|
|||
footer <- NULL
|
||||
}
|
||||
|
||||
if (any(class(x$item) %in% c('double', 'integer', 'numeric', 'raw', 'single'))) {
|
||||
x$item <- format(x$item)
|
||||
}
|
||||
if ("item" %in% colnames(x)) {
|
||||
x$item <- format(x$item)
|
||||
if (any(class(x$item) %in% c('double', 'integer', 'numeric', 'raw', 'single'))) {
|
||||
x$item <- format(x$item)
|
||||
}
|
||||
} else {
|
||||
opt$column_names <- opt$column_names[!opt$column_names == "Item"]
|
||||
}
|
||||
|
|
Loading…
Reference in New Issue