data <- tibble::tibble(
a = c(1, 1, 1), x = c(NA, NA, NA), b = c(1, 1, NA),
z = c(1, 2, 2), e = c(1, 2, NA)
)
drop_uninformative_columns(data)
drop_uninformative_columns(data, na_distinct = FALSE)
Run the code above in your browser using DataLab