Open camult opened 3 months ago
Suggestion...
formatter_glue_pander <- structure(function(..., .logcall = sys.call(), .topcall = sys.call(-1), .topenv = parent.frame()) {
if (any(class(...) %in% c("data.table", "data.frame", "matrix"))) {
fail_on_missing_package('pander')
eval(pander::pander_return(...), envir = .topenv)
} else {
fail_on_missing_package('glue')
as.character(
tryCatch(
glue::glue(..., .envir = .topenv),
error = function(e) {
stop(paste(
'`glue_safe` failed in `formatter_glue_safe` on:\n\n',
capture.output(str(...)),
'\n\nRaw error message:\n\n',
e$message,
'\n\nPlease consider using another `log_formatter` or',
'`skip_formatter` on strings with curly braces.'))
}))
}
}, generator = quote(formatter_glue_pander()))
Is there a way to use the layout_glue_generator and formatter_pander?
Results