R/globals.R

In fellstat/ipc: Tools for Message Passing Between Processes

.globals <- new.env(parent = emptyenv())

#' Get/set the location for temporary files
#' @param tempfile a function generating working file path (e.g. tempfile())
#' @export
tempFileGenerator <- function(tempfile){
  if(missing(tempfile))
    return(.globals$tempfile)
  .globals$tempfile <- tempfile
}

#' Get/set the class used to sink/read from the file system
#' @param sourceClass An R6 object
#' @export
defaultSource <- function(sourceClass){
  if(missing(sourceClass))
    return(.globals$defaultSource)
  .globals$defaultSource <- sourceClass
}

#' Get/set the location for temporary files
#' @param generator a function generating id strings
#' @export
redisIdGenerator <- function(generator){
  if(missing(generator))
    return(.globals$redisGenerator)
  .globals$redisGenerator <- generator
}


#' Get/set redis configuration
#' @param config a function generating id strings
#' @export
redisConfig <- function(config){
  if(missing(config))
    return(.globals$redisConfig)
  .globals$redisConfig <- config
}