R/pause.R

In Auburngrads/SMRD: Statistical Methods For Reliability Data

pause <-
function (prompt = "Touch Return to continue; type stop to breakout: ", 
    skip = F, browse = F) 
{
    if (browse) 
        browser()
    if (skip) 
        return(F)
    if (!interactive() || (exists(".Batch") && .Batch)) 
        return(TRUE)
    repeat {
        cat(prompt)
        ans <- readline()
        invisible()
        if (ans == "n" || ans == "no") 
            return(TRUE)
        if (ans == "yes" || ans == "y") 
            return(FALSE)
        if (ans == "") 
            return(FALSE)
        if (ans == "abort") {
            stop("Abort")
            break
        }
        if (ans == "stop") {
            cat("Breaking out \n")
            stop("Abort")
            return(TRUE)
        }
    }
}