R/as.character.xtime.R

In R-Finance/xtime: eXtensible Time Class

as.character.xtime <-
function(x) {
  ux <- un.xtime(x)
  if(is.xtime(ux))
    as.character(as.POSIXct(ux))
  else
  as.character(ux)
}

format.xtime <- function(x, format="", tz="", ...) {
  ux <- un.xtime(x)
  if(is.xtime(ux))
    format(as.POSIXct(ux))
  else
  format(ux)
}