R/utils.R

In waldronlab/cacheur: Cache files downloaded from S3

## helpers from BiocManager
.getAnswer <- function(msg, allowed)
{
    if (interactive()) {
        repeat {
            cat(msg)
            answer <- readLines(n = 1)
            if (answer %in% allowed)
                break
        }
        tolower(answer)
    } else {
        "n"
    }
}

.msg <-
    function(fmt, ..., width = getOption("width"))
{
    txt <- strwrap(sprintf(fmt, ...), width = width, exdent = 2)
    paste(txt, collapse = "\n")
}

.message <-
    function(..., appendLF=TRUE)
{
    message(.msg(...), appendLF=appendLF)
    invisible(TRUE)
}