Petr4 Chart - R Quantmod Chartseries Ta Inside A Function An