BUG: Apply plate 504 controls to all plates.

analysis-only_overlap.R

@@ -14,7 +14,7 @@ files_plate <- "plates/DRSC_TF_Library_Distribution.xls"
 ## reflected in the Excel spreadsheet provided by the core facility.
 ## Therefore below is the list of added wells, which we will later
 ## merge with the spreadsheet data:
-wells_control_plate504 <- tibble::tribble(
+wells_control <- tibble::tribble(
     ~well, ~symbol,
     ##---|------
     "I04", "BROWN",
@@ -29,8 +29,7 @@ wells_control_plate504 <- tibble::tribble(
                  "F14", "G07", "G18", "H09", "H16", "I09", "I16",
                  "J07", "J18", "K11", "K14", "L05", "L20", "M12",
                  "M13", "N03", "N22"))) %>%
-    rename(symbol_504 = symbol) %>% # Prepare for join.
-    mutate(plate = 504) %>%
+    rename(symbol_control = symbol) %>% # Prepare for join.
     arrange(well)
 ## FIXME: Need to confirm what type of control Thread is.
 wells_layout <-
@@ -40,9 +39,9 @@ wells_layout <-
     rename(symbol = `symbol(s)`,
            fbgn = `fbgn(s)`) %>% arrange(plate, well)
 wells_layout %<>%
-    left_join(wells_control_plate504) %>%
-    mutate(symbol = ifelse(is.na(symbol_504), symbol, symbol_504)) %>%
-    select(-symbol_504) %>%
+    left_join(wells_control) %>%
+    mutate(symbol = ifelse(is.na(symbol_control), symbol, symbol_control)) %>%
+    select(-symbol_control) %>%
     mutate(control = ifelse(
                symbol %in% c("CAL1", "FACT", "Rho1"), ## Rho1 gives binucleates
                "positive", NA)) %>%