R/waitReturn.R

waitReturn <- function(q="", ask=TRUE) {
  if (ask & interactive() & sink.number() == 0) readline
        (paste(q, "\nType  <Return>\t to continue : "))
  invisible()
}

Try the cwhmisc package in your browser

Any scripts or data that you put into this service are public.

cwhmisc documentation built on May 1, 2019, 7:55 p.m.