set p = 1 and penalize_lines = "none" for mk_plate_scoring_functions …

…in multi plate wrapper
bedapub · Jul 9, 2024 · fd0a42b · fd0a42b
1 parent 2abd5c2
commit fd0a42b
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/R/score_plates.R b/R/score_plates.R
@@ -250,7 +250,9 @@ optimize_multi_plate_design <- function(batch_container, across_plates_variables
 
   if (!is.null(within_plate_variables)) {
     plate_levels <- unique(bc$get_locations()[[plate]])
-    scoring_funcs <- purrr::map(within_plate_variables, ~ mk_plate_scoring_functions(bc, plate = plate, row = row, column = column, group = .x)) |>
+    scoring_funcs <- purrr::map(within_plate_variables,
+                                ~ mk_plate_scoring_functions(bc, plate = plate, row = row, column = column, group = .x,
+                                                             p = 1, penalize_lines = "none")) |>
       unlist()
     names(scoring_funcs) <- paste(rep(within_plate_variables, each = length(plate_levels)), names(scoring_funcs))