updated ui.R