R/archiveMessage.R

In jbrzusto/motus-R-package: Operate a server to process data for http://motus.org

#' Save a handled email message in the appropriate place.
#'
#' Both valid and invalid emails are compressed and archived.
#'
#' @param path character scalar path to file containing the emailwhere the message
#'
#' @param valid boolean: is the message valid?
#'#'
#' @return no return value
#''
#' @export
#'
#' @author John Brzustowski \email{jbrzusto@@REMOVE_THIS_PART_fastmail.fm}

archiveMessage = function(path, valid) {
    outf = paste0(
        file.path(
            if (valid) MOTUS_PATH$EMAILS else MOTUS_PATH$SPAM,
            basename(path)
        ),
        ".bz2"
    )
    f = bzfile(outf, "wb")
    writeLines(readLines(path), f)
    close(f)
}