Create r_code.r