update app.R