2 little improvements (Suharto Anggono, on R-devel)

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

Author: maechler

src/library/base/R/dates.R

@@ -203,7 +203,7 @@ Summary.Date <- function (..., na.rm)
     ok <- switch(.Generic, max = , min = , range = TRUE, FALSE)
     if (!ok) stop(gettextf("%s not defined for \"Date\" objects", .Generic),
                   domain = NA)
-    .Date(NextMethod(.Generic), oldClass(...elt(1L)))
+    .Date(NextMethod(.Generic), oldClass(..1))
 }
 
 `[.Date` <- function(x, ..., drop = TRUE)

src/library/base/R/datetime.R

@@ -394,7 +394,7 @@ format.POSIXlt <- function(x, format = "", usetz = FALSE,
                 }
         } else np <- 0L
         ## need list `[` method here to get 1:3 ~ {sec, min, hour}:
-        times <- unlist(`names<-`(unclass(x)[1L:3L], NULL))[f0]
+        times <- unlist(unclass(x)[1L:3L], use.names=FALSE)[f0]
        format[f0] <-
         if(all(times[is.finite(times)] == 0)) "%Y-%m-%d"
         else if(np == 0L) "%Y-%m-%d %H:%M:%S"