R/dependency_class.R

In gelfondjal/IT2: Tracks and manages dependencies for R project

#' Dependency class
#' 
#' @export
# Make dependency class
dependency <- setRefClass("dependency",
                          fields = list( data = "data.frame"),
                          methods = list(
                            update = function(df.update) {
                              ## the following string documents the edit method
                              'Updates the dependency object with a read in or write out
	'
                              if(nrow(df.update)==0){
                                data <<- df.update
                                invisible(data)
                              }
                              
                              new.row <- data[1,] # Retrieves part of dependency information that does not change
                              
                              for(col.iter in names(df.update)){new.row[[col.iter]] <- df.update[[col.iter]]}
                              
                              data <<- rbind.fill(data,new.row)
                              
                              invisible(data)
                            })
)