Print warnings as they happen with a for-loop in R

print_warning.R

war <- function(x) {
  suppressWarnings(w <- warning("There's a problem with: ", x))
  message(w)
  return(x)
}

for (i in 1:5) {
  Sys.sleep(1)
  war(i)
}