Displaying 1 result from an estimated 1 matches for "premd5".
Did you mean:
preds
2013 Sep 04
4
Comments requested on "changedFiles" function
...}
else changes <- matrix(logical(0), nrow = 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(...