R/only_informative_columns.R

In higherX4Racine/hiRx: Helpful Tools for Higher Expectations' Data Work

#' Remove all singleton columns
#'
#' @param .x a tibble or data table with more than one row
#'
#' @return a tibble that may have fewer columns
#' @export
only_informative_columns <- function(.x) {
    dplyr::select(.x, tidyselect::where(~dplyr::n_distinct(.) > 1))
}