From a9dda1a0b944c8a7ad9a4b57a9bc921420a136af Mon Sep 17 00:00:00 2001
From: edd <edd@edb9625f-4e0d-4859-8d74-9fd3b1da38cb>
Date: Sun, 5 Apr 2009 15:49:45 +0000
Subject: [PATCH] corrected date/time stamp parsing and conversion

git-svn-id: svn://svn.r-forge.r-project.org/svnroot/cran2deb@218 edb9625f-4e0d-4859-8d74-9fd3b1da38cb
---
 trunk/R/db.R | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/trunk/R/db.R b/trunk/R/db.R
index 5c87ed2..9e8ad03 100644
--- a/trunk/R/db.R
+++ b/trunk/R/db.R
@@ -338,17 +338,16 @@ db_builds <- function(pkgname) {
 
 db_cleanup_builds <- function(build) {
     build$success <- as.logical(build$success)
-    o<-options(digits.secs = 6)
-    dt <- as.data.frame(t(data.frame(sapply(row.names(build),
-            function(r)
-                list(as.POSIXct(strptime(paste(build[r,]$date_stamp,build[r,]$time_stamp)
-                                        ,paste(db_date_format,db_time_format))))))))
-    options(o)
-    names(dt) <- 'date_stamp'
-    row.names(dt) <- row.names(build)
+    #o <-options(digits.secs = 6)
+    dt <- as.POSIXct(strptime(paste(as.character(build[,"date_stamp"]), as.character(build[,"time_stamp"])),
+                              paste(db_date_format, db_time_format)))
     build$time_stamp <- NULL
     build$date_stamp <- NULL
-    return(cbind(build,dt))
+    newdf <- data.frame(build, date_stamp=dt)
+    #print(newdf[, -grep("log", colnames(newdf))])
+    #options(o)
+    #print(newdf[, -grep("log", colnames(newdf))])
+    return(newdf)
 }
 
 db_latest_build <- function(pkgname) {
-- 
2.39.5