format.default(<list>, ..) now calls format(), not format.default()

git-svn-id: https://svn.r-project.org/R/trunk@88448 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: maechler

src/library/base/R/format.R

@@ -33,15 +33,15 @@ format.default <-
 	if(missing(trim)) trim <- TRUE
 	if(missing(justify)) justify <- "none"
 	res <- lapply(X = x,
-                      FUN = function(xx, ...) format.default(unlist(xx),...),
+                      FUN = function(xx, ...) format(unlist(xx), ...),
 		      trim = trim, digits = digits, nsmall = nsmall,
 		      justify = justify, width = width, na.encode = na.encode,
 		      scientific = scientific,
 		      big.mark = big.mark, big.interval = big.interval,
 		      small.mark = small.mark, small.interval = small.interval,
 		      decimal.mark = decimal.mark, zero.print = zero.print,
 		      drop0trailing = drop0trailing, ...)
-	vapply(res, paste, "", collapse = ", ")
+	vapply(res, paste0, "", collapse = ", ")
     } else {
 	switch(mode(x),
 	       NULL = "NULL",

src/library/base/man/format.Rd

@@ -1,6 +1,6 @@
 % File src/library/base/man/format.Rd
 % Part of the R package, https://www.R-project.org
-% Copyright 1995-2024 R Core Team
+% Copyright 1995-2025 R Core Team
 % Copyright 2003-2016 The R Foundation
 % Distributed under GPL 2 or later
 
@@ -146,10 +146,11 @@ format(x, \dots)
   attributes are copied.
 
   If \code{x} is a list, the result is a character vector obtained by
-  applying \code{format.default(x, \dots)} to each element of the list
+  applying \code{format(x, \dots)} (instead of \code{format.default(x,
+  \dots)} in \R <= 4.5.z) to each element of the list
   (after \I{\code{\link{unlist}}ing} elements which are themselves lists),
   and then collapsing the result for each element with
-  \code{paste(collapse = ", ")}.  The defaults in this case are
+  \code{paste0(collapse = ", ")}.  The defaults in this case are
   \code{trim = TRUE, justify = "none"} since one does not usually want
   alignment in the collapsed strings.
 }

tests/reg-tests-1e.R

@@ -2076,6 +2076,14 @@ chk(a1); chk(a2)
 ## Im(.)s had more NA's than just at the end, in R <= 4.5.z
 
 
+## format(<list of objects>) -- now dispatches correctly
+dts <- seq(.Date(11100), .Date(11111))
+(fD <- format(Ldt <- as.list(dts)))
+stopifnot(is.list(Ldt), vapply(Ldt, inherits, NA, "Date"),
+          identical(fD, format.Date(dts)))
+# fD  was "11100" "11101" .... "11111" in R <= 4.5.z
+
+
 
 ## keep at end
 rbind(last =  proc.time() - .pt,