/demo/gsubfn-chron.R

 1
 2# Use read.zoo to read data with a chron time index
 3# Ignore fractional seconds.
 4
 5library(zoo)
 6library(chron)
 7library(gsubfn)
 8
 9# test data
10Lines <- "2006-01-24 02:41:24.00011,1.22930000,5,1.22950000,7
112006-01-25 04:41:24.00011,1.22930000,5,1.22950000,7
122006-01-26 07:41:24.00011,1.22930000,5,1.22950000,7"
13
14# convert to chron
15to.chron <- function(x) 
16   strapply(format(x), "([0-9-]+) ([0-9:]+)",
17	~ chron(as.numeric(as.Date(dd)), tt), simplify = c)
18
19con <- textConnection(Lines)
20read.zoo(con, sep = ",", FUN = to.chron)
21close(con)
22