diff --git a/R/freq.R b/R/freq.R index a521b203..5ea410cc 100755 --- a/R/freq.R +++ b/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"] }