Do no lose names.

hornik · hornik · commit da2664485723 · 2025-01-19T18:58:42.000Z
git-svn-id: https://svn.r-project.org/R/trunk@87600 00db46b3-68df-0310-9c12-caf00c1e9a41
diff --git a/src/library/base/R/datetime.R b/src/library/base/R/datetime.R
@@ -771,10 +771,12 @@ as.data.frame.difftime <- as.data.frame.vector
 
 format.difftime <- function(x,...)
 {
-    if(length(x))
+    y <- if(length(x))
         paste(format(unclass(x),...), units(x))
     else
         character()
+    names(y) <- names(x)
+    y
 }
 
 print.difftime <- function(x, digits = getOption("digits"), ...)

Original file line number	Diff line number	Diff line change
`@@ -771,10 +771,12 @@ as.data.frame.difftime <- as.data.frame.vector`
`771`	`771`
`772`	`772`	`format.difftime <- function(x,...)`
`773`	`773`	`{`
`774`		`- if(length(x))`
	`774`	`+ y <- if(length(x))`
`775`	`775`	`paste(format(unclass(x),...), units(x))`
`776`	`776`	`else`
`777`	`777`	`character()`
	`778`	`+ names(y) <- names(x)`
	`779`	`+ y`
`778`	`780`	`}`
`779`	`781`
`780`	`782`	`print.difftime <- function(x, digits = getOption("digits"), ...)`