library(tibble)
dummy <- tibble(
A...1 = rnorm(10),
A...2 = A...1,
C = sample(letters, 10),
A...4 = A...1,
E = sample(1:10, 10),
`F` = C
)
# Example usage:
identical_cols(dummy) # Interactive removal
identical_cols(dummy, remove_duplicates = FALSE) # Find identical columns only
identical_cols(dummy, print_duplicates = FALSE) # Interactive removal, no print
identical_cols(dummy, clean_names = FALSE) # Interactive removal, no clean names
identical_cols(dummy, interactive = FALSE) #Non interactive removal of all duplicates.
Run the code above in your browser using DataLab