get_output <- function(expr) { msgs <- character() i <- 0 suppressMessages(withCallingHandlers( expr, message = function(e) msgs[[i <<- i + 1]] <<- conditionMessage(e))) paste0(msgs, collapse = "") }
Generated by dwww version 1.15 on Tue Jul 2 08:40:43 CEST 2024.