Displaying 1 result from an estimated 1 matches for "postmd5".
2013 Sep 04
4
Comments requested on "changedFiles" function
...= length(common), ncol = 0,
dimnames = list(common, character(0)))
if (length(timestamp))
changes <- cbind(changes, Newer = file_test("-nt", common,
timestamp))
if (md5sum) {
premd5 <- pre[common, "md5sum"]
postmd5 <- post[common, "md5sum"]
changes <- cbind(changes, md5sum = premd5 != postmd5)
}
changes1 <- changes[rowSums(changes, na.rm = TRUE) > 0, , drop = FALSE]
changed <- rownames(changes1)
structure(list(added = added, deleted = deleted, changed = change...