setwd("~/Downloads/datafeed/") #Read in Adobe manifest file manifest <- read.table("zwitchdev_2015-07-13.txt", stringsAsFactors=FALSE) names(manifest) <- c("key", "value") #Use digest library to calculate md5 hashes library(digest) servercalls_md5 <- digest("01-zwitchdev_2015-07-13.tsv.gz", algo="md5", file=TRUE) lookup_md5 <- digest("zwitchdev_2015-07-13-lookup_data.tar.gz", algo="md5", file=TRUE) #Check to see if hashes contained in manifest file servercalls_md5 %in% manifest$value #[1] TRUE lookup_md5 %in% manifest$value #[1] TRUE