R/NLDfToList.R

In RNetLogo: Provides an Interface to the Agent-Based Modelling Platform 'NetLogo'

NLDfToList <- 
function(in.data.frame, nl.obj=NULL)
{    
  # get internal nl.obj if NULL
  if (is.null(nl.obj))
  {
    nl.obj <- "_nl.intern_"
  }
  # check for unknown nl.obj
  if (!(nl.obj %in% .rnetlogo$objects)) {
    stop(paste('There is no NetLogo reference stored under the name ',nl.obj,".", sep=""))
  }  
  
  merge.key.values <- function(in.df, curr.name, nl.obj)
  {
    set.base <- paste(c('set',curr.name), collapse=" ")
    set.values <- eval.commandobject(in.df[,curr.name])    
    NLCommand(set.base, set.values, nl.obj=nl.obj) 
  }
  command <- lapply(names(in.data.frame), function(x) {merge.key.values(in.data.frame, x, nl.obj)})
}