Do no lose names.

git-svn-id: https://svn.r-project.org/R/trunk@87600 00db46b3-68df-0310-9c12-caf00c1e9a41
r-devel · Jan 19, 2025 · da26644 · da26644
1 parent d05f01d
commit da26644
Showing 1 changed file with 3 additions and 1 deletion.
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"), ...)