Small max rows/cols errors repr()

[MichaelChirico]

options(repr.matrix.max.rows=2L, repr.matrix.max.cols=2L)
data.frame(1:3, 4:6, 7:9)

ERROR while rich displaying an object: Error in apply(part, 2L, format): dim(X) must have a positive length

Traceback:
1. sapply(x, f, simplify = simplify)
2. lapply(X = X, FUN = FUN, ...)
3. FUN(X[[i]], ...)
4. tryCatch(withCallingHandlers({
 .     if (!mime %in% names(repr::mime2repr)) 
 .         stop("No repr_* for mimetype ", mime, " in repr::mime2repr")
 .     rpr <- repr::mime2repr[[mime]](obj)
 .     if (is.null(rpr)) 
 .         return(NULL)
 .     prepare_content(is.raw(rpr), rpr)
 . }, error = error_handler), error = outer_handler)
5. tryCatchList(expr, classes, parentenv, handlers)
6. tryCatchOne(expr, names, parentenv, handlers[[1L]])
7. doTryCatch(return(expr), name, parentenv, handler)
8. withCallingHandlers({
 .     if (!mime %in% names(repr::mime2repr)) 
 .         stop("No repr_* for mimetype ", mime, " in repr::mime2repr")
 .     rpr <- repr::mime2repr[[mime]](obj)
 .     if (is.null(rpr)) 
 .         return(NULL)
 .     prepare_content(is.raw(rpr), rpr)
 . }, error = error_handler)
9. repr::mime2repr[[mime]](obj)
10. repr_text.data.frame(obj)
11. ellip_limit_arr(obj, rows, cols)
12. arr_parts_format(parts)
13. structure(lapply(parts, arr_part_format), omit = attr(parts, 
  .     "omit"))
14. lapply(parts, arr_part_format)
15. FUN(X[[i]], ...)
16. apply(part, 2L, format)
17. stop("dim(X) must have a positive length")

I guess this is because of lacking drop=FALSE in [.