shinyApp revision