R/get_neuR_map.R

In livioivil/neuR: R package for neuroscience data processing and statistical analysis of neuro-data

#' @name get.neuR.map
#' @title add funct to neuR-object
#' @description NOT IMPLEMENTED YET: out.funct.name=map the name of the function to be generated (eg different names depending on the parameters)
#' @param obj neuR-object
#' @param map  function name to be returned or the array itself
#' @param recompute FALSE
#' @return a volume
#' @export

get.neuR.map <- function(obj,map,recompute=FALSE,...){
  if(is.array(map)) return(map)
  
  if(!recompute){
    if(map%in%names(obj@data))
    return(obj@data[[map]])
  }
  #check if it is not a function. if not, try to add it to functs
  if(!(map%in%names(obj@functs))){
    obj@functs[[map]]= get.neuR.funct(map,...)
  }
  return(obj@functs[[map]]())
}