example for renderUI() in Shiny