From a192bacee78a97f15d8a0dc21cae4d632eebc479 Mon Sep 17 00:00:00 2001 From: maechler Date: Mon, 5 Apr 2004 15:56:43 +0000 Subject: [PATCH] [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 --- src/library/base/R/dates.R | 2 +- src/library/base/R/datetime.R | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/library/base/R/dates.R b/src/library/base/R/dates.R index 85a8d83fce2..983e6bcbb62 100644 --- 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 index 52d22214a8f..6076e1e0494 100644 --- 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)