Merge branch 'main' into rc_datawizard_1.0.0

easystats · Jan 5, 2025 · db6722c · db6722c
2 parents 9fba1e2 + fa9bbb0
commit db6722c
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 5 deletions.
diff --git a/R/standardize.models.R b/R/standardize.models.R
@@ -401,7 +401,7 @@ standardize.mediate <- function(x,
   }
 
 
-  text <- utils::capture.output({
+  junk <- utils::capture.output({
     model_std <- stats::update(x,
       model.y = y_std, model.m = m_std,
       # control.value = control.value, treat.value = treat.value
@@ -472,7 +472,7 @@ standardize.biglm <- standardize.wbm
 
   # check if model has a response variable that should not be standardized.
   info$is_linear &&
-    !info$family == "inverse.gaussian" &&
+    info$family != "inverse.gaussian" &&
     !info$is_survival &&
     !info$is_censored
 

diff --git a/R/unstandardize.R b/R/unstandardize.R
@@ -72,10 +72,10 @@ unstandardize.data.frame <- function(x,
 
   dots <- match.call(expand.dots = FALSE)[["..."]]
 
-  if (!is.null(dots$grp_attr_dw)) {
-    grp_attr_dw <- eval(dots$grp_attr_dw, envir = parent.frame(1L))
-  } else {
+  if (is.null(dots$grp_attr_dw)) {
     grp_attr_dw <- NULL
+  } else {
+    grp_attr_dw <- eval(dots$grp_attr_dw, envir = parent.frame(1L))
   }
 
   if (!is.null(grp_attr_dw)) {