naming and dealing with a dependency issue. ready for first release

This commit is contained in:
Andreas Gammelgaard Damsbo 2024-12-19 15:26:23 +01:00
commit a01f7157b5
No known key found for this signature in database
30 changed files with 664 additions and 1026 deletions

View file

@ -93,7 +93,7 @@ regression_table.list <- function(x, ...) {
#' @export
regression_table.default <- function(x, ..., args.list = NULL, fun = "gtsummary::tbl_regression") {
# Stripping custom class
class(x) <- class(x)[class(x) != "webresearch_model"]
class(x) <- class(x)[class(x) != "freesearcher_model"]
if (any(c(length(class(x)) != 1, class(x) != "lm"))) {
if (!"exponentiate" \%in\% names(args.list)) {