r-distributed-computing/utils.R

# additional functions

setup.logger = function(output.file, overwrite.existing.files)
{
    if (overwrite.existing.files & file.exists(output.file))
    {
        file.remove(output.file)
    }

    invisible(flog.appender(appender.tee(output.file)))
}


stop.script = function(error)
{
    if (is.character(error))
    {
        flog.error(error)
    } else {
        flog.error(getMessage(error))
    }

    throw(error)
}