the `stataDo` function does not currently work. More of an aspiration than a reality.

stataDo.R

############
# stataDo: A function for running Stata do files in batch mode from R
# Christopher Gandrud
# 22 January 2013
############

# Note: Stata must be in your PATH for this to work.
## For Mac Users see: http://www.stata.com/support/faqs/mac/advanced-topics/ 

stataDo <- function(dofile, options = "-e"){
  system(paste("bash ;", "Stata", options, dofile, "; exit", sep = " "))
}

setwd("~/Desktop/")

stataDo(dofile = "AMCCRR.do")

system("Stata -e")