committing r script