trying to figure out Shiny bug?