R/are_files_identical.R

Defines functions are_files_identical

are_files_identical <- function(x, y){
  fx <- readBin(file(x, "rb"), "raw", n = file.size(x))
  fy <- readBin(file(y, "rb"), "raw", n = file.size(y))
  identical(fx, fy)
  identical(fx, fx)
}
s-fleck/hammr documentation built on July 19, 2023, 9:20 p.m.