R/queue.R

In tz-lom/ResonanceEngine:

.globals <- new.env()

resetGlobals <- function(){
  .globals$queue <- list()
  .globals$inputs <- list()
  .globals$outputId <- 1
  .globals$emptyInputs <- list()

  .globals$env <- new.env(parent=globalenv())
}

addToQueue = function(cmd, ...){
  .globals$queue <- append(
    .globals$queue,
    list(
      list(
        cmd=cmd,
        args = list(...)
      )
    )
  )
}

popQueue <- function(){
  ret <- .globals$queue
  .globals$queue <- list()
  ret
}