dev/test_dev/progressBar/withProgress_Calcul.R

In samWieczorek/Prostar2: PKG_TITLE

toto <- function(connexion, logFile) {
  
  if (connexion == T) {sink(logFile, split=T)}
  Sys.sleep(3)
  cat("step0\n")

  Sys.sleep(2)
  cat("step1\n")
  
  Sys.sleep(5)
  cat("step2\n")
  
  Sys.sleep(4)
  cat("step3\n")
  
  Sys.sleep(2)
  cat("end\n")
  
  if (connexion == T) {sink()}
  
}

logFile="./sink-steps.txt"
toto(T, logFile)