update time.R