mv the push logic to an R script
mv the push logic to an R script