Update packages/ Add org-ref
This commit is contained in:
23
elpa/ess-20180611.502/etc/ESSR/R/mpi.R
Normal file
23
elpa/ess-20180611.502/etc/ESSR/R/mpi.R
Normal file
@@ -0,0 +1,23 @@
|
||||
## simple Message Parsing Inerface
|
||||
|
||||
.ess_mpi_send <- function(head, ...){
|
||||
payload <- paste(..., sep = "")
|
||||
cat(sprintf("%s%s", head, payload))
|
||||
}
|
||||
|
||||
.ess_mpi_message <- function(msg){
|
||||
.ess_mpi_send("message", msg)
|
||||
}
|
||||
|
||||
.ess_mpi_y_or_n <- function(prompt, callback){
|
||||
.ess_mpi_send("y-or-n", prompt, callback)
|
||||
}
|
||||
|
||||
.ess_mpi_eval <- function(expr, callback){
|
||||
.ess_mpi_send("eval", expr, callback)
|
||||
}
|
||||
|
||||
.ess_mpi_error <- function(msg) {
|
||||
.ess_mpi_send("error", msg)
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user