R/winDialog.m.R

In zdealveindy/ordijuice: Unconstrained ordinations of vegetation data in JUICE program

winDialog.m <-
function (type = c("ok", "okcancel", "yesno", "yesnocancel"), message) 
{
# the change is in cancelling checking for interactive use of function
#    if (!interactive()) 
#        stop("winDialog() cannot be used non-interactively")
    type <- match.arg(type)
    res <- .Internal(winDialog(type, message))
    if (res == 10) 
        return(invisible(NULL))
    c("NO", "CANCEL", "YES", "OK")[res + 2]
}