implemented checks with 'performance' package

R/regression_model.R

@@ -112,7 +112,6 @@ regression_model <- function(data,
   # Recreating the call
   # out$call <-  match.call(definition=eval(parse(text=fun)), call(fun, data = 'data',formula = as.formula(formula.str),args.list))
 
-  class(out) <- c("webresearch_model", class(out))
   return(out)
 }
 
@@ -193,12 +192,28 @@ regression_model_uv <- function(data,
       do.call(
         regression_model,
         c(
-          list(data = data[match(c(outcome.str,.var),names(data))]),
-          list(outcome.str=outcome.str),
-          list(args.list=args.list)
+          list(data = data[match(c(outcome.str, .var), names(data))]),
+          list(outcome.str = outcome.str),
+          list(args.list = args.list)
         )
       )
     })
 
   return(out)
 }
+
+
+#' Easy saving png
+#'
+#' @param data plot
+#' @param ... passed to 'png()'
+#' @param filename filename
+#'
+#' @return NULL
+#' @export
+#'
+save_png <- function(data, filename,...) {
+  png(filename = filename,...)
+  data
+  dev.off()
+}

R/regression_table.R

@@ -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"]
 

R/shiny_webResearch.R

@@ -19,7 +19,6 @@ shiny_webResearch <- function(data = NULL, ...) {
 
   G <- .GlobalEnv
 
-
   if (!is.null(data) && is.data.frame(data)) {
     assign("webResearch_data", data, envir = G)
   }