From 63ba4b2980bf7bc88e2fd37e65938b9c3505a718 Mon Sep 17 00:00:00 2001
From: "Matthijs S. Berends" <m.s.berends@umcg.nl>
Date: Mon, 19 Nov 2018 13:06:07 +0100
Subject: [PATCH] small error in freq

---
 R/freq.R | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

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"]
   }