updated shinyApp