Como aumentar o tempo de processamento de uma função?

Olá.

Eu tentei aumentar o tempo de processamento de uma função, mesmo que ela terminasse.

Por exemplo:

set.seed(1)
x1 <- sample(x = 1:10, size = 5, replace = TRUE)
x1

[1] 9 4 7 1 2

Eu queria que o output não fosse instantâneo, e que a função tivesse mais tempo para processar (mesmo que o output fosse terminado) e que eu definisse esse tempo. Eu tentei configurar um Sys.sleep(n) mas não funcionou.

Obrigado.

@giovani Se vc colocar o Sys.sleep() antes do comando já funionar.
Ex:

start <- Sys.time()
Sys.sleep(5)
x1 <- sample(x = 1:10, size = 5, replace = TRUE)
stop <- Sys.time()

stop - start

Gerson

1 curtida