R/misc.R

Defines functions get_id_vals is_repeated_cv check_trans

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)))
}
topepo/tidyposterior documentation built on Oct. 19, 2024, 4:26 a.m.