Update Highstock_sPlot.R

Minor clean up.