[1:6] not [1:5] for summary.(Date|POSIX[cl]t)

git-svn-id: https://svn.r-project.org/R/trunk@28919 00db46b3-68df-0310-9c12-caf00c1e9a41
wch · Apr 5, 2004 · a192bac · a192bac
1 parent 736b52e
commit a192bac
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/src/library/base/R/dates.R b/src/library/base/R/dates.R
@@ -86,7 +86,7 @@ print.Date <- function(x, ...)
 
 summary.Date <- function(object, ...)
 {
-    x <- summary.default(unclass(object), ...)[1:5]
+    x <- summary.default(unclass(object), ...)[1:6]# not NA's
     class(x) <- oldClass(object)
     x
 }

diff --git a/src/library/base/R/datetime.R b/src/library/base/R/datetime.R
@@ -130,14 +130,14 @@ print.POSIXlt <- function(x, ...)
 
 summary.POSIXct <- function(object, digits=15, ...)
 {
-    x <- summary.default(unclass(object), digits=digits, ...)[1:5]
+    x <- summary.default(unclass(object), digits=digits, ...)#[1:5]
     class(x) <- oldClass(object)
     attr(x, "tzone") <- attr(object, "tzone")
     x
 }
 
 summary.POSIXlt <- function(object, digits = 15, ...)
-    summary(as.POSIXct(object), digits = digits, ...)[1:5]
+    summary(as.POSIXct(object), digits = digits, ...)
 
 
 "+.POSIXt" <- function(e1, e2)