fix tests

insightsengineering · Jul 22, 2024 · d9a99ed · d9a99ed
1 parent ec842fc
commit d9a99ed
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 7 deletions.
diff --git a/R/utils_dim_control_and_checks.R b/R/utils_dim_control_and_checks.R
@@ -28,7 +28,8 @@
 #' (`add_specific_value`) and rows (`keep_spec_rows`). Exploratory plots can be also appreciated with
 #' `explorative = TRUE`.
 #'
-#' @return A modified `data.frame` and a plot if `exporative = TRUE`.
+#' @return A modified `data.frame` and a plot if `explorative = TRUE`. If not interactive and `explorative = TRUE`,
+#'   a plot object is returned.
 #'
 #' @examples
 #' # real case scenario: trimming of variables with too many levels
@@ -208,7 +209,10 @@ reduce_num_levels_in_df <- function(dt,
       mutate(!!sym(variable) := factor(!!sym(variable)))
 
     if (explorative) {
-      return(gg)
+      if (!interactive()) { # for testing
+        return(gg)
+      }
+      print(gg)
     }
     invisible(out)
   }

diff --git a/man/reduce_num_levels_in_df.Rd b/man/reduce_num_levels_in_df.Rd
diff --git a/vignettes/data_pre_processing.Rmd b/vignettes/data_pre_processing.Rmd
@@ -21,10 +21,6 @@ library(random.cdisc.data)
 data("cadae")
 ```
 
-```{r}
-# desc_ae <- Hmisc::describe(cadae)
-# desc_ae$SEX
-```
 
 ## Reducing number of levels per variable