readline equivalent behavior in Shiny

Question

Let\'s consider the following function:

foo <- function(n){
  out <- double(n)
  for( i in 1:n ){
    # Here an external algorithm is run. We need to ma