edited ui.R