andreas/FreesearchR
1
0
Fork 0
mirror of https://github.com/agdamsbo/FreesearchR.git synced 2025-09-12 01:49:39 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

abandoned the methods approach for a more simpler conditional parsing as the S3 methods resulted in an error

Browse source
This commit is contained in:
Andreas Gammelgaard Damsbo 2024-12-19 11:34:06 +01:00
parent 9ca7698200
commit a2f3aa5481
No known key found for this signature in database
2 changed files with 34 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
NAMESPACE
View file

@ -1,13 +1,13 @@
# Generated by roxygen2: do not edit by hand
S3method(cut,hms)
S3method(regression_table,default)
S3method(regression_table,list)
export(argsstring2list)
export(baseline_table)
export(custom_theme)
export(cut_variable_server)
export(cut_variable_ui)
export(default_format_arguments)
export(default_parsing)
export(factorize)
export(format_writer)
export(getfun)

38
man/regression_table.Rd
View file

@ -2,15 +2,9 @@
% Please edit documentation in R/regression_table.R
\name{regression_table}
\alias{regression_table}
\alias{regression_table.list}
\alias{regression_table.default}
\title{Create table of regression model}
\usage{
regression_table(x, ...)
\method{regression_table}{list}(x, ...)
\method{regression_table}{default}(x, ..., args.list = NULL, fun = "gtsummary::tbl_regression")
}
\arguments{
\item{x}{regression model}
@ -80,4 +74,36 @@ list(
purrr::map(regression_table) |>
tbl_merge()
}
regression_table <- function(x, ...) {
UseMethod("regression_table")
}
#' @rdname regression_table
#' @export
regression_table.list <- function(x, ...) {
x |>
purrr::map(\(.m){
regression_table(x = .m, ...) |>
gtsummary::add_n()
}) |>
gtsummary::tbl_stack()
}
#' @rdname regression_table
#' @export
regression_table.default <- function(x, ..., args.list = NULL, fun = "gtsummary::tbl_regression") {
# Stripping custom class
class(x) <- class(x)[class(x) != "webresearch_model"]
if (any(c(length(class(x)) != 1, class(x) != "lm"))) {
if (!"exponentiate" \%in\% names(args.list)) {
args.list <- c(args.list, list(exponentiate = TRUE))
}
}
out <- do.call(getfun(fun), c(list(x = x), args.list))
out |>
gtsummary::add_glance_source_note() # |>
# gtsummary::bold_p()
}
}