CMD <- "scp root@107.20.201.0:/mnt/data/home/rsaporta//git/orch/data/Accounting/ToTxr/* ~/git/orch/data/Accounting/ToTxr"

sleep.interval <- 10 * 60
keepTrying <- TRUE
currentNumbOfFiles <- length(dir("~/git/orch/data/Accounting/ToTxr"))
expectedFilesToArrive <- 3
verbose <- TRUE
dontStartUntil <- as.POSIXct("2014-03-20 06:11 EDT")

## Wait to start
if (Sys.time() < dontStartUntil) {
  secs <- as.numeric(dontStartUntil - Sys.time()) * 60
  verboseMsg(verbose, "Will sleep for", fwSecs(secs), "until", capture.output(dontStartUntil), time=TRUE)
  Sys.sleep(1)
  cat("\ndsfdsfsd")
  Sys.sleep(secs)
}

## Loop til enough files have been brung
while (keepTrying) {
    system(CMD)
    verboseMsg(verbose, "Trying again", time=TRUE)
    newNumbOfFiles <- length(dir("~/git/orch/data/Accounting/ToTxr"))
    if (newNumbOfFiles - currentNumbOfFiles >= expectedFilesToArrive)
      keepTrying <- FALSE
    else {
      verboseMsg(verbose, "Sleeping for", fwSecs(sleep.interval), time=TRUE)
      Sys.sleep(sleep.interval)
    }
}

{
  cat("Files in the directory are: \n")
  dir.info("~/git/orch/data/Accounting/ToTxr")
  invisible()
}