Question

我有这个功能：

func<-function(name){
    paste("Your name is. . .")
    Sys.sleep(1.5)
    paste(name)
}

这个功能显然不起作用，但想法是在每次输出之间等待1.5秒。

例如，调用func（“Catherine”）应该打印到控制台：

[1] "Your name is..."

然后等待1.5秒，然后打印：

[1] "Catherine"

Answer 1

只需将您想要的输出包装在print语句中：

func<-function(name){
  print("Your name is. . .")

  Sys.sleep(1.5)

  print(name)
}

#Execute Function
func("Martin")

[1] "Your name is. . ."
[1] "Martin"

Answer 2

我不太清楚问题是什么，但这会产生你所谈论的行为。

func <- function(name)
{
print("Your name is. . .")
flush.console()
Sys.sleep(1.5)
print(name)
}

> func('Test')
[1] "Your name is. . ."
[1] "Test"
>

在R函数中使用Sys.sleep来延迟多个输出

2 个答案: