push r script code