implemented checks with 'performance' package

This commit is contained in:
Andreas Gammelgaard Damsbo 2024-11-29 14:30:02 +01:00
commit 3ce9902170
No known key found for this signature in database
13 changed files with 574 additions and 27 deletions

View file

@ -79,7 +79,7 @@ regression_table.list <- function(x, ...) {
#' @rdname regression_table
#' @export
regression_table.webresearch_model <- function(x, ..., args.list = NULL, fun = "gtsummary::tbl_regression") {
regression_table.default <- function(x, ..., args.list = NULL, fun = "gtsummary::tbl_regression") {
# Stripping custom class
class(x) <- class(x)[class(x) != "webresearch_model"]