Cacher is the code snippet organizer for pro developers

RdsFilesIdentical <- function(RdsLocation1, RdsLocation2) {
  
  library(fairtreeR)
  load.packages()
  
  Rds1 <- read_rds(RdsLocation1)
  Rds2 <- read_rds(RdsLocation2)
  
  identical(Rds1, Rds2)

}

cat("RdsFilesIdentical() Successfully Loaded as Function")