Question

我正在执行getURL命令，使用下面的函数检查服务器上任务的状态。

getURL(content(t2)$statusURL)

当任务正在进行时，状态可以是“正在处理”，也可以在任务完成时处于“已成功完成”状态。

仅当任务状态为“Completed_Successfully”时，才应执行以下代码

  getURL(content(t2)$ouptputURL)

如果任务状态仍处于“正在处理”状态，则代码应等待，直到它变为“Completed_Successfully”

需要帮助在R中写这个逻辑吗？

Answer 1

几年前我遇到过类似的问题。我决定要求Windows任务管理器（是的，我犯了罪）定期运行特定的脚本。你的脚本可以是

isok <- FALSE
i <- 1
while (isok == FALSE) {
  record.start <- Sys.time()
  message("Checking if job done")
  Sys.sleep(i)
  record.end <- Sys.time()
  see.difference <- record.end - record.start
  message(paste("Waiting time:", round(see.difference)))
  if (see.difference >= 5) {
    isok <- TRUE
    message("Job completed")
  }
  i <- i + 1
}

Checking if job done
Waiting time: 1
Checking if job done
Waiting time: 2
Checking if job done
Waiting time: 3
Checking if job done
Waiting time: 4
Checking if job done
Waiting time: 5
Job completed

检查Web服务器R上的作业状态

1 个答案: