# Set up a small CHECKSUMS.txt-like file, then purge one entry
tf <- tempfile(fileext = ".txt")
data.table::fwrite(
data.table::data.table(file = c("a.tif", "b.tif"), checksum = c("x1", "x2")),
tf
)
purgeChecksums(tf, "a.tif")
data.table::fread(tf)
unlink(tf)
Run the code above in your browser using DataLab