R/validate.r

# gzf <- file(wf, open="rb", raw=TRUE)
# for (i in seq_along(gzpos)) {
#   seek(gzf, gzpos[i], "start")
#   d <- readBin(gzf, "raw", 2, 1)
#   if (d[1] != as.raw(0x1f)) {
#     cat(sprintf("%d: ", i))
#     print(d)
#   }
# }
# close(gzf)
hrbrmstr/warc documentation built on May 17, 2019, 5:53 p.m.