commit r script