coloumn width adjusted

Author: venom1204

R/print.data.table.R

@@ -139,6 +139,8 @@ print.data.table = function(x, topn=getOption("datatable.print.topn"),
     print_default(toprint)
     return(invisible(x))
   }
+  if (col.names == "none") 
+  colnames(toprint) <- rep.int("", ncol(toprint))
   if (nrow(toprint)>20L && col.names == "auto")
     # repeat colnames at the bottom if over 20 rows so you don't have to scroll up to see them
     #   option to shut this off per request of Oleg Bondar on SO, #1482
@@ -263,8 +265,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)
-  if (col.names != "none") names = sapply(colnames(x), nchar, type="width") else names = 0L
-  dt_widths = pmax(widths, names)
+  names_widths = if (col.names == "none") rep(0L, ncol(x)) else sapply(colnames(x), nchar, type = "width")
+  dt_widths = pmax(widths, names_widths)
   rownum_width = if (row.names) as.integer(ceiling(log10(nrow))+2.0) else 0L
   cumsum(dt_widths + 1L) + rownum_width
 }

inst/tests/tests.Rraw

@@ -21141,3 +21141,16 @@ dt = data.table(id = 1:25)
 test(2314.1, any(grepl("<int>", tail(capture.output(print(dt, class = TRUE)), 2))), TRUE)
 # Test that class=TRUE with col.names="top" doesn't show classes at bottom
 test(2314.2, !any(grepl("<int>", tail(capture.output(print(dt, class = TRUE, col.names = "top")), 2))), TRUE)
+
+test(2313.1, {
+  dt <- data.table(short=1:3, verylongcolumnname=4:6)
+  print(dt, col.names="none")
+}, output="1: 1 4\n2: 2 5\n3: 3 6\n")
+test(2313.2, {
+  dt <- data.table(x=123456, y="wide_string")
+  print(dt, col.names="none")
+}, output="1: 123456 wide_string\n")
+test(2313.3, {
+  dt <- data.table(a=NA_integer_, b=NaN)
+  print(dt, col.names="none")
+}, output="1: NA NaN\n")