issue with merge_netsim_scenarios about epimodelhpc HOT 7 CLOSED

Error in names(z[[other.x[j]]]) <- newnames : 
  attempt to set an attribute on NULL
Called from: signalConditions(obj, exclude = getOption("future.relay.immediate", 
    "immediateCondition"), resignal = resignal, ...)

function (future, include = "condition", exclude = NULL, resignal = TRUE, 
  ...) 
{
  if (!future$state %in% c("finished", "failed")) {
    stop(FutureError(sprintf("Internal error: Cannot resignal future conditions. %s has not yet been resolved (state = %s)", 
      class(future)[1], paste(sQuote(future$state), collapse = ", ")), 
      future = future))
  }
  if (length(include) == 0L) 
    return(invisible(future))
  result <- result(future)
  stop_if_not(inherits(result, "FutureResult"))
  conditions <- result$conditions
  if (length(conditions) == 0) 
    return(invisible(future))
  debug <- getOption("future.debug", FALSE)
  if (debug) {
    mdebug("signalConditions() ...")
    mdebug(" - include = ", paste(sQuote(include), collapse = ", "))
    mdebug(" - exclude = ", paste(sQuote(exclude), collapse = ", "))
    mdebug(" - resignal = ", resignal)
    mdebug(" - Number of conditions: ", length(conditions))
    on.exit(mdebug("signalConditions() ... done"))
  }
  signaled <- logical(length(conditions))
  for (kk in seq_along(conditions)) {
    cond <- conditions[[kk]]
    if (!resignal && !is.null(cond$signaled) && cond$signaled > 
      0L) 
      next
    condition <- cond$condition
    if (length(exclude) > 0L && inherits(condition, exclude)) 
      next
    if (length(include) > 0L && !inherits(condition, include)) 
      next
    mdebugf(" - Condition #%d: %s", kk, paste(sQuote(class(condition)), 
      collapse = ", "))
    cond$signaled <- cond$signaled + 1L
    conditions[[kk]] <- cond
    if (inherits(condition, "error")) {
      result$conditions <- conditions
      future$result <- result
      if (debug && !"future.info" %in% names(condition)) {
        cond$calls <- c(future$calls, cond$calls)
        condition$future.info <- cond
      }
      stop(condition)
    }
    else if (inherits(condition, "warning")) {
      warning(condition)
    }
    else if (inherits(condition, "message")) {
      message(condition)
    }
    else if (inherits(condition, "condition")) {
      signalCondition(condition)
    }
    else {
      stop_if_not(inherits(condition, "condition"))
    }
    signaled[kk] <- TRUE
  }
  if (isTRUE(attr(future$conditions, "drop"))) {
    conditions <- conditions[!signaled]
  }
  result$conditions <- conditions
  future$result <- result
  invisible(future)
}