save_px_as_r_script function

Save px object as an R script