updated condition

Author: venom1204

R/print.data.table.R

@@ -261,8 +261,8 @@ char.trunc = function(x, trunc.char = getOption("datatable.prettyprint.char")) {
 dt_width = function(x, nrow, class, row.names, col.names) {
   widths = apply(nchar(x, type='width'), 2L, max)
   if (class) widths = pmax(widths, 6L)
-  names_widths = if (col.names == "none") rep(0L, ncol(x)) else sapply(colnames(x), nchar, type = "width")
-  dt_widths = pmax(widths, names_widths)
+  if (col.names != "none") names = sapply(colnames(x), nchar, type="width") else names = 0L
+  dt_widths = pmax(widths, names)
   rownum_width = if (row.names) as.integer(ceiling(log10(nrow))+2.0) else 0L
   cumsum(dt_widths + 1L) + rownum_width
 }

inst/tests/tests.Rraw

@@ -21130,7 +21130,7 @@ test(2311.2, nlevels(DT$V1), 2L) # used to be 3
 DF = list(rep(iconv("\uf8", from = "UTF-8", to = "latin1"), 2e6))
 test(2312, fwrite(DF, nullfile(), encoding = "UTF-8", nThread = 2L), NULL)
 
-# New tests for GitHub #6882 (col.names='none' column widths)
+# tests for #6882 (col.names='none' column widths)
 test(2313.1, {
   dt <- data.table(short=1:3, verylongcolumnname=4:6)
   print(dt, col.names="none")