R/misc.R

In topepo/tidyposterior: Bayesian Analysis to Compare Models using Resampling Statistics

check_trans <- function(x) {
  trans_msg <- "`transform` should have two functions: 'func' and 'inv'"
  if (length(x) != 2) {
    rlang::abort(trans_msg)
  } else {
    if (!all(sort(names(x)) == c("func", "inv"))) {
      rlang::abort(trans_msg)
    }
    if (!all(is.function(transform))) {
      rlang::abort(trans_msg)
    }
  }
  invisible(x)
}


is_repeated_cv <- function(x) {
  all(grepl("^Fold", x$values$Resample) & grepl("\\.Rep", x$values$Resample))
}


get_id_vals <- function(x) {
  id_vars <- grep("(^id$)|(^id[1-9]$)", names(x), value = TRUE)
  map(x[, id_vars, drop = FALSE], function(x) unique(as.character(x)))
}