log_file.con <- file(log_file, open="at")
serialize(obj, log_file.con, ascii = TRUE)
close(log_file.con)

log_file.con <- file(log_file, open="rt")
results <- list()
repeat{
    entry <- NULL
    try(entry <- unserialize(log_file.con), silent = TRUE)

    if (is.null(entry))
        break

    results <- c(results, list(entry))
}
close(log_file.con)