Commit with R script