library(timeDate)
Sys.timeDate()


x<-"2019-07-08 20:20:10"
timeDate(x)
timeDate(x)+60


library(timeDate)
x<-listFinCenter("Asia")
length(x)
head(x)
tail(x,3)
