Speed udate for shiny