Nullify breaking on R-devel

[brodieG]

     - Failed -----------------------------------------------------------------------

     | The following test failed because the new evaluation does not match the
     | reference value from the store. Overwrite with new result ([Y]es, [N]o,
     | [P]rev, [B]rowse, [R]erun, [Q]uit, [H]elp)?

     > nullify(iris[1:10, ], 4)
     Sepal.Length Sepal.Width Petal.Length Petal.Width Species
     1 5.1 3.5 1.4 NULL setosa
     2 4.9 3.0 1.4 <NA> setosa
     3 4.7 3.2 1.3 <NA> setosa
     4 4.6 3.1 1.5 <NA> setosa
     5 5.0 3.6 1.4 <NA> setosa
     6 5.4 3.9 1.7 <NA> setosa
     7 4.6 3.4 1.4 <NA> setosa
     8 5.0 3.4 1.5 <NA> setosa
     9 4.4 2.9 1.4 <NA> setosa
     10 4.9 3.1 1.5 <NA> setosa
     Warning in format.data.frame(if (omit) x[seq_len(n0), , drop = FALSE] else x, :
     corrupt data frame: columns will be truncated or padded with NAs

     | Conditions mismatch:

     < .REF$conditions
     > .NEW$conditions
     @@ 1,5 / 1,6 @@
     Condition list with 1 condition:
     < 1. [print] Warning in format.data.frame(x, digits = digits, na.encode = FALSE)
     < : corrupt data frame: columns will be truncated or padded with NAs
     > 1. [print] Warning in format.data.frame(if (omit) x[seq_len(n0), , drop =
     > FALSE] else x, : corrupt data frame: columns will be truncated or padded
     > with NAs

     [print] means condition was issued by a print or show method for an auto-

     | State mismatch; see `.DIFF$state` for details.

     | User input required to proceed, but we are in non-interactive mode.

     | unitizer unchanged.

     | * Fail: nullify(iris[1:10, ], 4)
     | in 'unitizer/abstract.R'

     | Newly evaluated tests do not match unitizer (Pass: 1080, Fail: 1); see above
     | for more info, or run in interactive mode.

One of the builds failing:

using R Under development (unstable) (2018-08-11 r75106)
using platform: x86_64-pc-linux-gnu (64-bit)
using session charset: UTF-8

[brodieG]

This happened between r74699 and r75061

[brodieG]

Probably happened because of 75024:

$svn diff -r 75023:75024 library/base/R/dataframe.R 
Index: library/base/R/dataframe.R
===================================================================
--- library/base/R/dataframe.R  (revision 75023)
+++ library/base/R/dataframe.R  (revision 75024)
@@ -1477,7 +1477,7 @@

 print.data.frame <-
     function(x, ..., digits = NULL, quote = FALSE, right = TRUE,
-        row.names = TRUE)
+        row.names = TRUE, max = NULL)
 {
     n <- length(row.names(x))
     if(length(x) == 0L) {
@@ -1489,12 +1489,20 @@
    print.default(names(x), quote = FALSE)
    cat(gettext("<0 rows> (or 0-length row.names)\n"))
     } else {
+   if(is.null(max)) max <- getOption("max.print", 99999L)
    ## format.<*>() : avoiding picking up e.g. format.AsIs
-   m <- as.matrix(format.data.frame(x, digits = digits, na.encode = FALSE))
+   omit <- (n0 <- max %/% length(x)) < n
+   m <- as.matrix(
+       format.data.frame(if(omit) x[seq_len(n0), , drop=FALSE] else x,
+                 digits = digits, na.encode = FALSE))
    if(!isTRUE(row.names))
        dimnames(m)[[1L]] <-
-       if(isFALSE(row.names)) rep.int("", n) else row.names
+       if(isFALSE(row.names)) rep.int("", if(omit) n0 else n)
+       else row.names
    print(m, ..., quote = quote, right = right)
+   if(omit)
+       cat(" [ reached 'max' / getOption(\"max.print\") -- omitted",
+       n - n0, "rows ]\n")
     }
     invisible(x)
 }
@@ -1644,7 +1652,7 @@
    }
     }
     for(j in seq_along(cn)) {
-   left <- if(!lscalar) e1[[j]] else e1
+   left  <- if(!lscalar) e1[[j]] else e1
    right <- if(!rscalar) e2[[j]] else e2
    value[[j]] <- eval(f)
     }