Functions to dispense pairwise combinations of reagents.

[charles-plessy]

primer_F_wells <- function(n) {
  consecutive_of_wells_for_one_primer <- titration_steps * reverse_primers
  Range1 <- negative_controls +                                            # Offset
            1 : consecutive_of_wells_for_one_primer +                     # Consecutive wells for one primer
            n * titration_steps * reverse_primers                          # Start at nth primer
  PlateTypeToWellNames("384")[c(Range1, Range1+192)]
}

primer_R_wells <- function(n) {
  consecutive_of_wells_for_one_primer <- titration_steps 
  Range1 <- negative_controls +                                            # Offset
            rep(1:consecutive_of_wells_for_one_primer, forward_primers)  + # One stretch per forward primer
            (rep(0:(forward_primers -1) * titration_steps * reverse_primers, titration_steps) |> sort()) +
            n * consecutive_of_wells_for_one_primer
  PlateTypeToWellNames("384")[c(Range1, Range1+192)]
}