Example shiny app with tabbing problem