R/get_unique_col_names.R

In Harrison4192/autostats: Auto Stats

get_unique_col_names <- function(df){
  nrow(df) -> rws
  V1 <- column <- NULL

  df %>%
    dplyr::summarize(dplyr::across(.fns = ~dplyr::n_distinct(.) == rws)) %>%
    presenter::pivot_summary() %>%
    dplyr::filter(V1) %>%
    dplyr::pull(column)
}


get_min_unique_col_names <- function(df){
  nrow(df) -> rws
  V1 <- column <- NULL

  df %>%
    dplyr::summarize(dplyr::across(.fns = ~dplyr::n_distinct(.) == rws)) %>%
    presenter::pivot_summary() %>%
    dplyr::filter(V1) %>%
    dplyr::pull(column)
}

get_min_unique_col_names <- function(df){
  nrow(df) -> rws
  V1 <- column <- NULL

  df %>%
    dplyr::summarize(dplyr::across(.fns = ~dplyr::n_distinct(.))) %>%
    presenter::pivot_summary() %>%
    dplyr::filter(V1 == min(V1)) %>%
    dplyr::pull(column)
}