R/spare_code.R

In choisy/gamar3: Interface to the Agent-Based Modeling Platform GAMA

#' @export
name <- function(exp) {
  unname(exp["experiment"])
}


# ------------------------------------------------------------------------------


#' @export
`name<-` <- function(x, value) {
  x["experiment"] <- value
  x
}


# ------------------------------------------------------------------------------


f <- function(x, slot, value) {
  x[slot][names(value)] <- value
  x
}