R/utils.R

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

as_integer <- function(x) {
  setNames(as.integer(x), names(x))
}


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


as_numeric <- function(x) {
  setNames(as.numeric(x), names(x))
}


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


flatten <- function(exp) {
  unlist(unname(as.list(exp)))
}


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


rename <- function(args) {
  #  get_names <- function(exp) as.list(exp)$.attrs["experiment"]
  #  thenames <- sapply(args, get_names)
  #  nametable <- table(thenames)
  #  names_to_change <- nametable[which(nametable > 1)]
  #  for (i in names(names_to_change))
  #    thenames[thenames == i] <- paste0(i, "_", seq_len(names_to_change[i]))
  #  names(args) <- thenames
  #  for(i in seq_along(args)) name(args[[i]]) <- thenames[i]
  structure(args, class = c("plan", "experiment"))
}