Update Highstock_sPlot.R