tests/testthat/helpers/dummies.R

In stan-dev/projpred: Projection Predictive Feature Selection

dummy_glob <- "REMOVE THIS DUMMY ENTRY"

# Remove undesired dummy entries from a list.
#
# @param x A list.
# @param dummy_txt The text that identifies a dummy entry.
#
# @return `x` with dummy elements removed.
rm_dummies <- function(x, dummy_txt = dummy_glob, return_logical = FALSE) {
  keep_this <- !sapply(x, identical, dummy_txt)
  if (return_logical) {
    return(keep_this)
  }
  return(x[keep_this])
}