R/run.offline.R

In tz-lom/Resonance-Rproj: Interface for Resonance project

run.offline <- function(inputs, blocks, code, env=new.env()) {
  
  data <- lapply(inputs, function(si){
    F <- Filter(function(x){
      identical(SI(x), si)
    }, blocks)
    
    if(length(F)){
      do.call(DBcombine, F)
    }else{
      makeEmpty(si)
    }
  })
  
  
  env$input <- function(index){
    if(index>0 && index<=length(data)){
      data[[index]]
    } else {
      stop('Unknown input required')
    }
  }
  
  results <- list()
  
  env$createOutput <- function(out, name){
    results[[name]] <<- out
  }
  
  if(!is.language(code)) code <- parse(text=code)
  
  eval(code, env)
  env$process()
  
  results
}