R/count-test.R

In fozy81/rdatamill:

# save test number to .Rdata file

count_test <- function(){

  if (!file.exists("counter.Rdata")){
    counter <- 1
  save(counter,file="counter.Rdata")}

  if (file.exists("counter.Rdata")){ load(file="counter.Rdata")
    counter <- counter + 1

  save(counter, file="counter.Rdata")}
  return(counter)

  }