commented shiny app code