testing the commit function in RStudio