Fixed bug in shinyShow