R/utils.r

In epiviz/epivizr-tmp: R Interface to epiviz web app

IndexedArray <- setRefClass("IndexedArray",
                            fields=list(nextId="integer", items="list"),
                            methods=list(
                              initialize=function(...) {
                                nextId <<- 1L
                                items <<- vector("list")
                                callSuper(...)
                              },
                              finalize=function() {
                                empty()
                                invisible()
                              },
                              append=function(item) {
                                id=nextId
                                nextId <<- nextId+1L
                                items[[as.character(id)]] <<- item
                                return(id)
                              },
                              get=function(id) {
                                if (is.null(items[[as.character(id)]]))
                                  return(NULL)
                                out=items[[as.character(id)]]
                                items[[as.character(id)]] <<- NULL
                                return(out)
                              },
                              empty=function() {
                                items <<- vector("list")
                                nextId <<- 1L
                                invisible()
                              })
)

Queue <- setRefClass("Queue",
                     fields=list(items="list"),
                     methods=list(
                       initialize=function(...) {
                         items <<- vector("list")
                         callSuper(...)
                       },
                       finalize=function() {
                         empty()
                         invisible()
                       },
                       push=function(item) {
                         n=length(items)
                         items[[n+1]] <<- item
                         invisible(NULL)
                       },
                       pop=function() {
                         n=length(items)
                         if (n<1)
                           return(NULL)
                         out=items[[1]]
                         items[[1]] <<- NULL
                         return(out)
                       },
                       peek=function() {
                         n=length(items)
                         return(n>0)
                       },
                       empty=function() {
                         items <<- vector("list")
                         invisible()
                       })
)

epivizrMsg <- function(..., tagPrompt=FALSE) {
  isTesting <- getOption("epivizrTesting")
    if (!is.null(isTesting) && isTesting) {
      cat(..., "\n")
    } else {
      message("[epivizr] ", ...)
      if (tagPrompt) cat("> ")
    }
    invisible()
   }

.epivizrCanDaemonize <- function () {
  isTRUE(getOption("epivizrCanDaemonize"))
}