Merge branch 'main' into rc_datawizard_1.0.0

Author: etiennebacher

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
 

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)) {