Question

我有一个程序每15秒执行一次，我怎么能实现这个，程序如下：

print_test<-function{
    cat("hello world")
}

Answer 1

我每隔15秒用于执行相同代码块的内容：

interval = 15
x = data.frame()

repeat {
  startTime = Sys.time()
  x = rbind.data.frame(x, sum(data)) #replace this line with your code/functions
  sleepTime = startTime + interval - Sys.time()
  if (sleepTime > 0)
    Sys.sleep(sleepTime)
}

x和data是虚拟的，您需要相应地替换它们。这将无限期执行，直到被用户停止。如果您需要在特定时间停止并启动，则需要for循环而不是'repeat`。

希望这有帮助。

Answer 2

您可以这样做：

print_test<-function(x)
{ 
Sys.sleep(x)
cat("hello world")
}

print_test(15)

如果要执行一定量的迭代，请使用函数中的'for循环'和迭代次数。

Answer 3

您可以使用以下内容：

print_test<-function(x)
{
    if(condition)
    {
        Sys.sleep(x);
        cat("hello world");
        print_test(x);
    }
}
print_test(15)

在这种情况下，如果条件的计算结果为true，则函数在作为参数传递的秒数后调用自身。

在R中设置一个定时器来执行程序

3 个答案: