From 0263271df253db0a7699005267e425c0bb72c374 Mon Sep 17 00:00:00 2001 From: Mauricio Vargas Sepulveda Date: Tue, 26 Aug 2025 18:54:55 -0400 Subject: [PATCH 1/4] correct access to dplyr/ggplot2 namespace --- R/scan_data.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/scan_data.R b/R/scan_data.R index 2d3490099..b92b4adc1 100644 --- a/R/scan_data.R +++ b/R/scan_data.R @@ -1315,8 +1315,8 @@ probe_interactions <- function(data) { ggforce::geom_autodensity() + ggplot2::geom_density2d() + ggforce::facet_matrix( - rows = ggplot2::vars(gt::everything()), layer.diag = 2, layer.upper = 3, - grid.y.diag = FALSE) + + rows = ggplot2::vars(dplyr::everything()), layer.diag = 2, layer.upper = 3, + grid.y.diag = FALSE, labeller = ggplot2::label_value) + ggplot2::theme_minimal() + ggplot2::theme( axis.text.x = ggplot2::element_text( From aaa15538fece6cde1d8d5ed8bc782a0b9a4cfa55 Mon Sep 17 00:00:00 2001 From: Mauricio Vargas Sepulveda Date: Tue, 26 Aug 2025 19:00:29 -0400 Subject: [PATCH 2/4] fix #449: use if to handle ptblank_multiagent --- R/object_ops.R | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/R/object_ops.R b/R/object_ops.R index ab46e6930..eca11487a 100644 --- a/R/object_ops.R +++ b/R/object_ops.R @@ -773,6 +773,15 @@ export_report <- function( htmltools::as.tags() %>% htmltools::save_html(file = filename) + } else if (inherits(x, "ptblank_multiagent")) { + + object_type <- "multiagent" + + x %>% + get_multiagent_report() %>% + htmltools::as.tags() %>% + htmltools::save_html(file = filename) + } else if (inherits(x, "ptblank_tbl_scan")) { object_type <- "table scan" From ab81071c9adfce387be2beda9ada912b2dfd54e6 Mon Sep 17 00:00:00 2001 From: Mauricio Vargas Sepulveda Date: Tue, 26 Aug 2025 19:39:40 -0400 Subject: [PATCH 3/4] fix #365 by adding some limits for the plot --- R/scan_data.R | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/R/scan_data.R b/R/scan_data.R index b92b4adc1..91fdf8da8 100644 --- a/R/scan_data.R +++ b/R/scan_data.R @@ -1280,6 +1280,7 @@ probe_columns_other <- function( probe_interactions <- function(data) { category_cutoff <- 5 + max_variables <- 20 # Limit to prevent plot size issues tbl_info <- get_tbl_information(tbl = data) col_names <- tbl_info$col_names @@ -1306,6 +1307,11 @@ probe_interactions <- function(data) { col_names %>% base::setdiff(columns_char[columns_char_distinct_count > category_cutoff]) + # Limit the number of variables to prevent plot size issues + if (length(col_names) > max_variables) { + col_names <- col_names[1:max_variables] + } + # Create a ggplot2 plot matrix with the data plot_matrix <- data %>% @@ -1334,8 +1340,9 @@ probe_interactions <- function(data) { plot = plot_matrix, device = "png", dpi = 300, - width = length(col_names), - height = length(col_names) + width = min(length(col_names), 20), + height = min(length(col_names), 20), + limitsize = FALSE ) # Wait longer for file to be written on async file systems From 83735a6adc143349d04427b346809c0ea35fcf9e Mon Sep 17 00:00:00 2001 From: Mauricio Vargas Sepulveda Date: Wed, 27 Aug 2025 10:19:22 -0400 Subject: [PATCH 4/4] lint --- R/scan_data.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/R/scan_data.R b/R/scan_data.R index 91fdf8da8..746727095 100644 --- a/R/scan_data.R +++ b/R/scan_data.R @@ -1321,8 +1321,8 @@ probe_interactions <- function(data) { ggforce::geom_autodensity() + ggplot2::geom_density2d() + ggforce::facet_matrix( - rows = ggplot2::vars(dplyr::everything()), layer.diag = 2, layer.upper = 3, - grid.y.diag = FALSE, labeller = ggplot2::label_value) + + rows = ggplot2::vars(dplyr::everything()), layer.diag = 2, + layer.upper = 3, grid.y.diag = FALSE, labeller = ggplot2::label_value) + ggplot2::theme_minimal() + ggplot2::theme( axis.text.x = ggplot2::element_text(