Correcting message when printing objects with more than max entries

[hturner]

This is a side issue that came out of the analysis at the Bug BBQ of Bug 15027 on Bugzilla, cc @huizezhang-sherry, @gmbecker.

When a data frame has more than max entries, a sensible error message is printed, e.g.

print(as.data.frame(matrix(nrow = 20, ncol = 20)), max = 5)
#>      V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12 V13 V14 V15 V16 V17 V18 V19 V20
#>  [ reached 'max' / getOption("max.print") -- omitted 20 rows ]

^{Created on 2024-04-19 with reprex v2.0.2}

However, for vectors, matrices, and arrays, the message incorrectly refers to the "max.print" option only:

getOption("max.print")
#> [1] 99999
print(numeric(10), max = 5)
#> [1] 0 0 0 0 0
#>  [ reached getOption("max.print") -- omitted 5 entries ]
print(matrix(nrow = 20,ncol = 20), max = 5)
#>       [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13]
#>       [,14] [,15] [,16] [,17] [,18] [,19] [,20]
#>  [ reached getOption("max.print") -- omitted 20 rows ]
print(array(dim = c(6, 6, 6)), max = 5)
#>  [ reached getOption("max.print") -- omitted 6 matrix slice(s) ]

^{Created on 2024-04-19 with reprex v2.0.2}

In the case of data frames, the message comes from these lines of R code in print.data.frame: https://github.com/r-devel/r-svn/blob/890b1909d84975b732997eb503a6fa9b172dd4a3/src/library/base/R/dataframe.R#L1507-L1509.

Otherwise, the message "reached getOption("max.print")" comes from the C code - not investigated fully but

• print.default() calls the Internal function do_printdefault
• The message appears in print.array.c, printvector.c, print.c

Is it as simple as removing the special casing from print.data.frame and updating the message to "reached 'max' / getOption("max.print")" everywhere? This needs further analysis and possibly testing of a patch.