find_duplicate_cols() does not handle duplicated columns containing NAs

[jcken95]

find_duplicate_cols() cannot handle duplicate columns when NA values are present.

reprex:

df <- data.frame(
    x = c(1, NA),
    y = c(1, NA)
  )
fixr::find_duplicate_cols(df)
#> Error in if (all(df[, i] == df[, j])) {: missing value where TRUE/FALSE needed

^{Created on 2024-05-03 by the reprex package (v2.0.1)}

[ambuvjyn]

Hey @jcken95 Thanks for sharing this issue, I will resolve this.

[jcken95]

I imagine identical(df[, i], df[, j]) is more appropriate than all(df[, i] == df[, j]) in this instance