library(autometric)
library(ps)
path <- tempfile()
log_print(path = path, seconds = 1)
out <- log_read(path, units_memory = "bytes")
exp <- ps_memory_info()
unname(100 * (out$resident - exp["rss"]) / exp["rss"])
unname(100 * (out$virtual - exp["vms"]) / exp["rss"])
unlink(path)