From 8439235de4718bf199115939eab4adbe6168eebe Mon Sep 17 00:00:00 2001 From: Bryan Roessler Date: Tue, 8 Oct 2024 16:50:18 -0400 Subject: [PATCH] Remove deprecated functions --- .../apps/r/calculate_interaction_zscores.R | 17 ----------------- 1 file changed, 17 deletions(-) diff --git a/qhtcp-workflow/apps/r/calculate_interaction_zscores.R b/qhtcp-workflow/apps/r/calculate_interaction_zscores.R index 86be1ec5..a1651db2 100644 --- a/qhtcp-workflow/apps/r/calculate_interaction_zscores.R +++ b/qhtcp-workflow/apps/r/calculate_interaction_zscores.R @@ -1754,20 +1754,3 @@ main <- function() { }) } main() - -# For generate_scatter_plot() -# # Add rectangles if specified -# if (!is.null(config$rectangles)) { -# for (rect in config$rectangles) { -# plot <- plot + annotate( -# "rect", -# xmin = rect$xmin, -# xmax = rect$xmax, -# ymin = rect$ymin, -# ymax = rect$ymax, -# fill = ifelse(is.null(rect$fill), NA, rect$fill), -# color = ifelse(is.null(rect$color), "black", rect$color), -# alpha = ifelse(is.null(rect$alpha), 0.1, rect$alpha) -# ) -# } -# } \ No newline at end of file