R/utils.R

In travisbyrum/einet: Effective Information and Causal Emergence

#' @importFrom stats setNames

### default pipe --------------------------------------------------------------
`%||%` <- function(a, b) if (is.null(a) || is.na(a)) b else a

### is truthy -----------------------------------------------------------------
is_truthy <- function(x) {
  if (is.null(x)) {
    return(FALSE)
  }

  !identical(is.na(x), TRUE) &&
    !identical(length(x), 0L) &&
    !identical(nchar(x), 0L) &&
    !identical(x, FALSE)
}

### keys ----------------------------------------------------------------------
keys <- function(x) {
  assertthat::assert_that(is.list(x), msg = "list not provided")

  sapply(x, function(v) v$key)
}

### values --------------------------------------------------------------------
values <- function(x, key = "value") {
  assertthat::assert_that(is.list(x), msg = "list not provided")

  sapply(x, function(v) v[[key]])
}

### macro values --------------------------------------------------------------
get_macro <- function(mapping, micro_nodes = as.numeric(mapping)) {
  names(mapping)[which(mapping %in% micro_nodes)] %>%
    as.numeric()
}

set_macro <- function(mapping, micro_nodes, value) {
  names(mapping)[which(mapping %in% micro_nodes)] <- value

  return(mapping)
}

### max macro -----------------------------------------------------------------
max_macro <- function(mapping) {
  names(mapping) %>%
    as.numeric() %>%
    max()
}