launch and kill R process from R

launcher.R

# getting process id so we can kill it
pid <- system( "Rscript sample.R 500 > test2.txt &
        echo $!", intern = TRUE)

system(paste(sprintf("kill %s", pid)))

sample.R

options(echo=FALSE)
args <- commandArgs(trailingOnly = TRUE)

maxIter <- args[1]

for (i in 1:maxIter){
  Sys.sleep(0.1)
  cat(i)
  cat("\n")
}