if (FALSE) {
from <- as.nanotime("2018-01-14T12:44:00+00:00")
to <- as.nanotime("2019-01-14T12:44:00+00:00")
seq(from, to, by=as.nanoperiod("1m"), tz="America/New_York")
seq(from, by=as.nanoperiod("1y"), length.out=4, tz="Europe/London")
}
Run the code above in your browser using DataLab