working as independent rscript. Still prints same name in the output file