R/mail.R

In mcanouil/myScriptsMickael: My Scripts (Mickael)

mail <- function (from, subject, to, body, attachment) {
    if (missing(subject)) {
        eMailSubject <- '-s "(no subject)"'
    } else {
        eMailSubject <- paste0('-s "', subject, '"')
    }
    if (missing(to)) {
        stop('"to" is missing!')
    } else {}
    if (missing(body)) {
        eMailBody <- '<<< ""'
    } else {
        eMailBody <-  paste0('<<< "', body, '"')
    }
    if (missing(attachment)) {
        eMailJoint <- ""
    } else {
        toAttach <- sapply(seq_along(attachment), function(attach) {
            return(!system(paste("test -f", attachment[attach])))
        })
        if (any(toAttach)) {
            eMailJoint <- paste(paste0("-a", attachment[toAttach]), collapse = " ")
        } else {
            eMailJoint <- ""
        }
    }
    if (missing(from)) {
        eMailFrom <- ""
    } else {
        eMailFrom <- paste("-r", from)
    }
    return(system(paste('mail', eMailFrom, eMailSubject, eMailJoint, to, eMailBody)))
}