add fix for truncated print

ben-schwen · ben-schwen · commit afcd0f4a2b63 · 2025-04-28T16:32:56.000+02:00
diff --git a/R/print.data.table.R b/R/print.data.table.R
@@ -145,7 +145,7 @@ print.data.table = function(x, topn=getOption("datatable.print.topn"),
     toprint = rbind(
       toprint,
       matrix(if (quote) old else colnames(toprint), nrow=1L), # see #97
-      if (isTRUE(class)) matrix(abbs, nrow=1L) # #6902
+      if (isTRUE(class)) matrix(if (trunc.cols) abbs[cols_to_print] else abbs, nrow=1L) # #6902
     )
   print_default(toprint)
   invisible(x)

Original file line number	Diff line number	Diff line change
`@@ -145,7 +145,7 @@ print.data.table = function(x, topn=getOption("datatable.print.topn"),`
`145`	`145`	`toprint = rbind(`
`146`	`146`	`toprint,`
`147`	`147`	`matrix(if (quote) old else colnames(toprint), nrow=1L), # see #97`
`148`		`- if (isTRUE(class)) matrix(abbs, nrow=1L) # #6902`
	`148`	`+ if (isTRUE(class)) matrix(if (trunc.cols) abbs[cols_to_print] else abbs, nrow=1L) # #6902`
`149`	`149`	`)`
`150`	`150`	`print_default(toprint)`
`151`	`151`	`invisible(x)`