add time string in app.R