improvement to CSPS shiny app