Trying to get POSIXlt to print

Author: MichaelChirico

NAMESPACE

@@ -199,6 +199,7 @@ S3method(edit, data.table)
 export(format_col)
 S3method(format_col, default)
 S3method(format_col, POSIXct)
+S3method(format_col, POSIXlt)
 S3method(format_col, expression)
 export(format_list_item)
 S3method(format_list_item, default)

R/print.data.table.R

@@ -149,7 +149,6 @@ print.data.table = function(x, topn=getOption("datatable.print.topn"),
 
 format.data.table = function(x, ..., justify="none") {
   if (is.atomic(x) && !is.null(x)) { ## future R can use  if (is.atomic(x))
-
     stopf("Internal structure doesn't seem to be a list. Possibly corrupt data.table.")
   }
   do.call(cbind, lapply(x, format_col, ..., justify=justify))
@@ -214,6 +213,11 @@ format_col.POSIXct = function(x, ..., timezone=FALSE) {
   x
 }
 
+format_col.POSIXlt = function(x, ...) {
+  names(x) = names(unclass(as.POSIXlt(Sys.time())))
+  format_col(as.POSIXct(x), ...)
+}
+
 # #3011 -- expression columns can wrap to newlines which breaks printing
 format_col.expression = function(x, ...) format(char.trunc(as.character(x)), ...)