bryan/hartman-server
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Improve output

Browse Source
This commit is contained in:
Bryan Roessler
2024-09-17 22:26:11 -04:00
parent 4f9c2d3274
commit 7d2473044e
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
qhtcp-workflow/apps/r/calculate_interaction_zscores.R
View File

@@ -825,10 +825,9 @@ generate_rank_plot_configs <- function(df_filtered, variables, is_lm = FALSE) {
rectangles <- NULL rectangles <- NULL
} }
print(df_filtered %>% select(all_of(c(x_var, y_var))))
# Check if there is sufficient variation # Check if there is sufficient variation
if (length(unique(df_filtered[[x_var]])) < 2 || length(unique(df_filtered[[y_var]])) < 2) { if (length(unique(df_filtered[[x_var]])) < 2 || length(unique(df_filtered[[y_var]])) < 2) {
print(df_filtered %>% select(all_of(c("scan", "Plate", "Row", "Col", "num", "conc_num", x_var, y_var))))
message("Not enough variation in ", x_var, " or ", y_var, " to fit linear model. Skipping.") message("Not enough variation in ", x_var, " or ", y_var, " to fit linear model. Skipping.")
next next
} }