R/message_parallel.R

In NathanSkene/EWCE: Expression Weighted Celltype Enrichment

#' Print messages
#'
#' Print messages even from within parallelised functions.
#'
#' @param ... Message input.
#' 
#' @return Null output.
#'
#' @keywords internal
message_parallel <- function(...) {
    system(sprintf('echo "%s"', paste0(..., collapse = "")))
}