R/state.R

In fluxCore: Probabilistic Simulation of Single-Entity Systems in Irregular Time

NULL

.as_state <- function(x) {
  if (is.null(x)) return(structure(list(), class = "flux_state"))
  stopifnot(is.list(x))
  structure(x, class = "flux_state")
}

#' @export
#' @method [ flux_state
#' @noRd
`[.flux_state` <- function(x, i, ...) {
  if (missing(i)) return(x)
  # single index: behave like [[ for backward-compatibility with older
  # vector-based state() returns (where x["var"] produced the value).
  if (length(i) == 1L) return(x[[i]])
  # multiple indices: keep list subset semantics
  x[i]
}