R/handleUnknownFiles.R

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

#' handle a set of files of unknown type
#'
#' Called by \code{\link{processServer}}.  Files are
#' retained, and the sender is emailed a list of the files.
#'
#' @param j the job
#'
#' @return  TRUE;
#'
#' @seealso \code{\link{processServer}}
#'
#' @export
#'
#' @author John Brzustowski \email{jbrzusto@@REMOVE_THIS_PART_fastmail.fm}

handleUnknownFiles = function(j) {
    tj = topJob(j)

    msg = paste0("I don't know how to handle these files:\n\n",
                 paste0("   ", dir(jobPath(j), recursive=TRUE, full.names=FALSE), collapse="\n"),
                 "\n\nHowever, they have been retained on our server."
                 )
    jobLog(tj, msg)

    return(TRUE)
}