Working version of Shiny plot GPAT