R中的功能使用Sys.sleep延迟多个输出

Question

我有这样的功能：

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

这个功能显然不会工作，但这个想法是要等待各输出之间1.5秒。

例如，调用FUNC（ “凯瑟琳”）应打印到控制台：

[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

我不太确定问题是什么，但是这会产生行为y你在说什么。

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

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