fix print.data.table

Author: ben-schwen

R/print.data.table.R

@@ -143,7 +143,7 @@ print.data.table = function(x, topn=getOption("datatable.print.topn"),
   }
   if (col.names == "none")
     colnames(toprint) = rep.int("", ncol(toprint))
-  if (NROW(toprint)>20L && col.names == "auto")
+  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(
@@ -271,7 +271,7 @@ dt_width = function(x, nrow, class, row.names, col.names) {
 }
 # keeps the dim and dimnames attributes
 toprint_subset = function(x, cols_to_print) {
-  if (NROW(x) == 1L){
+  if (nrow(x) == 1L){
     atts = attributes(x)
     atts$dim = c(1L, sum(cols_to_print))
     atts$dimnames[[2L]] = atts$dimnames[[2L]][cols_to_print]