just a bit of additional theming

R/regression_table.R

@@ -62,24 +62,53 @@
 #'   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()
+#' }
+
 regression_table <- function(x, ...) {
-  UseMethod("regression_table")
+  if ("list" %in% class(x)){
+    x |>
+      purrr::map(\(.m){
+        regression_table_create(x = .m, ...) |>
+          gtsummary::add_n()
+      }) |>
+      gtsummary::tbl_stack()
+  } else {
+    regression_table_create(x,...)
+  }
 }
 
-#' @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") {
+regression_table_create <- function(x, ..., args.list = NULL, fun = "gtsummary::tbl_regression") {
   # Stripping custom class
   class(x) <- class(x)[class(x) != "webresearch_model"]
 

R/theme.R

@@ -0,0 +1,29 @@
+#' Custom theme based on unity
+#'
+#' @param ... everything passed on to bslib::bs_theme()
+#'
+#' @returns theme list
+#' @export
+custom_theme <- function(...){
+  bslib::bs_theme(
+    ...,
+    # preset = "united",
+    version = 5,
+    primary = "#1E4A8F",
+    secondary = "#FF6F61",
+    # success = "#1E4A8F",
+    # info = ,
+    # warning = ,
+    # danger = ,
+    # fg = "#000",
+    # bg="#fff",
+    bootswatch = "united",
+    base_font = bslib::font_google("Montserrat"),
+    # base_font = bslib::font_google("Alice"),
+    # heading_font = bslib::font_google("Jost", wght = "800"),
+    # heading_font = bslib::font_google("Noto Serif"),
+    # heading_font = bslib::font_google("Alice"),
+    heading_font = bslib::font_google("Public Sans",wght = "700"),
+    code_font = bslib::font_google("Open Sans")
+  )
+}