#' handler for completion of processing of an uploaded file
#'
#' Sends a message to the uploader giving the status of processing.
#' If \code{topJob(j)} has an item named \code{emailAttachment},
#' then that is a list of named file attachments which will be
#' included in the summary message.
#'
#' @param j the job
#'
#' @return TRUE always.
#'
#' @seealso \code{\link{emailServer}}, \code{\link{processServer}}
#'
#' @export
#'
#' @author John Brzustowski \email{jbrzusto@@REMOVE_THIS_PART_fastmail.fm}
handleUploadProcessed = function(j) {
### FIXME: decide on a method for notifying users. Email might still make sense,
### but user should be able to select other options. E.g. punt this to motus via
### an API call?
tj = topJob(j)
replyTo = tj$replyTo[1]
if (length(replyTo) > 0) {
email(replyTo, paste0("motus job ", tj, ": processing complete"),
paste0("Thank-you for the upload - it has been processed.
You should check the detailed log for processing errors and warnings, here:
https://sgdata.motus.org/status?jobID=", tj, "
Any product(s) are listed here:
", paste(sapply(jobProduced(tj), URLencode), collapse="\n "), "
Processing Summary:
", tj$summary_, "
Regards,
The people at Motus.
"), attachment = tj$emailAttachment)
}
return(TRUE)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.