Compare two data frames for similarity (and if they are different, print out the differences)

compare_data_frames.r

# Create data.
set.seed(1341)
original <- data.frame(x = rnorm(10), y = rnorm(10))
change <- original
change[5, 1] <- 6
change[7, 2] <- 4

# Function to compare data frames for similarity.
compare_data_frames <- function(df1, df2) {
  if (identical(df1, df2)) {
    cat("Data frames are identical.")
  } else {
    cat("Data frames are not identical.\n\nDifferences:\n")
    all.equal(df1, df2)
  }
}

# Do comparison.
compare_data_frames(original, change)