moved to strategy of passing current month as an argument during Rscript call