Time zone issues on previous version of R

Added suppress warnings if around as.numeric(format(Sys.time(), "%z"))