R/check_md5sum.R

Defines functions check_md5sum

check_md5sum <- function(file, original_checksum){
  file_md5sum <- tools::md5sum(files = file)
  if(file_md5sum == original_checksum){
    return(TRUE)
  } else {
    return(FALSE)
  }
}

Try the zendown package in your browser

Any scripts or data that you put into this service are public.

zendown documentation built on May 29, 2024, 4:12 a.m.