final

Author: Mukulyadav2004

R/print.data.table.R

@@ -62,7 +62,6 @@ print.data.table = function(x, topn=getOption("datatable.print.topn"),
     }
     return(invisible(x))
   }
-  index_dt <- NULL
   if (show.indices) {
     if (is.null(indices(x))) {
       show.indices = FALSE
@@ -84,9 +83,6 @@ print.data.table = function(x, topn=getOption("datatable.print.topn"),
     toprint = x
     rn = seq_len(n_x)
     printdots = FALSE
-    if (!is.null(index_dt) && nrow(index_dt) != nrow(toprint)) {
-      show.indices = FALSE
-    }
     if (show.indices) toprint = cbind(toprint, index_dt)
   }
   require_bit64_if_needed(x)

inst/tests/tests.Rraw

@@ -21070,12 +21070,3 @@ if (exists("sort_by", "package:base")) {
   test(2306.24, DT1[, sort_by(.SD, ~.(a, b))], data.table(a=c(1, 2, 3, 3, NA), b=c(4L, 2L, 0L, 3L, 1L)))
 }
 
-#fix for (#6806)
-DT2 <- data.table(a = 1:3, b = 4:6)
-index_dt <- data.table(a = 1:2, b = 3:4) 
-toprint <- data.table(a = 1:3, b = 3:5)   
-show.indices <- TRUE
-if (!is.null(index_dt) && nrow(index_dt) != nrow(toprint)) {
-  show.indices <- FALSE
-}
-test(2307, print(show.indices), output = "FALSE")