fix: test suite now reflects autocol selection

selkamand · Jan 23, 2025 · a37c954 · a37c954
1 parent 980a03e
commit a37c954
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/gg1d.R b/R/gg1d.R
@@ -216,7 +216,7 @@ gg1d <- function(
       cli::cli_alert_warning("Autoplotting > {max_plottable_cols} fields by `gg1d` is not recommended (visualisation ends up very squished). Chossing the {max_plottable_cols}/{n_plottable_cols} plottable columns which maximise mutual information with `{col_sort}`. To show all plottable columns, set {.code limit_plots = FALSE}. Alternatively, manually choose which columns are plotted by setting `cols_to_plot`")
     }
     else {
-      optimal_axis_order <- get_optimal_axis_order(data = df_plottable_data, metric = "mutinfo")
+      optimal_axis_order <- get_optimal_axis_order(data = df_plottable_data, metric = "mutinfo", verbose = FALSE)
       # Only consider the first {max_plottable_cols} columns plottable.
       plottable_cols <- optimal_axis_order[seq_len(max_plottable_cols)]
       col_sort <- plottable_cols[1]

diff --git a/tests/testthat/test-gg1d.R b/tests/testthat/test-gg1d.R
@@ -93,7 +93,7 @@ test_that("gg1d limits the number of plottable columns", {
   for (i in 1:20) {
     data[[paste0("Col", i)]] <- rnorm(10)
   }
-  expect_error(
+  expect_message(
     gg1d(data = data, max_plottable_cols = 10, verbose = FALSE),
     "Autoplotting > 10 fields by `gg1d` is not recommended"
   )