callback log function?

callback-log.R

log <- tempfile(fileext = ".log")
con <- file(log, open = "a")
addTaskCallback(
  function(expr, value, ok, visible) {
    if (rlang::is_condition(value)) {
      write("Found a condition!!!!", con, append = TRUE)
    }
    
      if (visible) {
        msg <- sprintf("[%sZ] > %s", format(Sys.time()), format(expr))
        write(msg, con, append = TRUE)
        write(
          sprintf("[%sZ] #> %s", format(Sys.time()), capture.output(print(value))),
          con, append = TRUE
        )
      } else {
       write(
        sprintf("[%sZ] > %s", format(Sys.time()), format(expr)),
        con, append = TRUE
      )
      }
    TRUE
  },
  name = "add log"
)

x <- 1 
x
x
warning("My message")

head(iris)

cat(readLines(log), sep = "\n")