data.table style

Author: Mukulyadav2004

R/print.data.table.R

@@ -142,11 +142,9 @@ print.data.table = function(x, topn=getOption("datatable.print.topn"),
   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
-    toprint <- rbind(toprint, matrix(if (quote) old else colnames(toprint), nrow=1L),
-    # add column class only when class=TRUE
-    if(isTRUE(class)) {
-      mat_abbs <- matrix(abbs, nrow = 1L)
-      rownames(mat_abbs) <- ""
+    toprint = rbind(toprint, matrix(if (quote) old else colnames(toprint), nrow=1L), if (isTRUE(class)) {
+      mat_abbs = matrix(abbs, nrow=1L)
+      rownames(mat_abbs) = ""
       mat_abbs
     })
   print_default(toprint)

inst/tests/tests.Rraw

@@ -21131,7 +21131,7 @@ DF = list(rep(iconv("\uf8", from = "UTF-8", to = "latin1"), 2e6))
 test(2312, fwrite(DF, nullfile(), encoding = "UTF-8", nThread = 2L), NULL)
 
 # Testing column footer display with col.names options in print.data.table #6902
-dt = data.table(id = 1:25, value = sample(letters, 25, replace = TRUE), number = rnorm(25))
+dt = data.table(id = 1:25)
 # Test with class=TRUE shows classes at bottom with default col.names="auto"
 test(2313.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