theme shiny fix element function