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" 
>