## Not run:
# fn = tempfile()
# f = file(fn, "wb")
# writeBin("a", f)
# writeBin("b", f)
# writeBin("c", f)
# close(f)
# file.info(fn)$size == 6
# truncateEndOfFile(fn, 1)
# file.info(fn)$size == 5
# ## End(Not run)
Run the code above in your browser using DataLab