add shiny app and function