remove duplicate rbind() call

Author: Mukulyadav2004

R/print.data.table.R

@@ -142,15 +142,14 @@ 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
-    if (isTRUE(class)) {
-      # Add both column names and classes when classes are enabled
+    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), matrix(abbs, nrow=1L))
-    } else {
-      # Original behavior (just column names at bottom)
-      toprint <- rbind(toprint, matrix(if (quote) old else colnames(toprint), nrow=1L))
+      mat_abbs
     }
+  )
   print_default(toprint)
   invisible(x)
 }