Handle the possible presence of a Description fiels in Bioplex exports

FUNCTIONS.R

@@ -229,7 +229,7 @@ runRelativeAntibodyUnits = function(fname1, fname2, MFI_CSV, MFI_N_ANTIGENS, TEM
         dplyr::mutate(Location = paste0(1:n(), "(1,", Location, ")"))
       
       # Remove columns that are not MFI readings or sample code / location
-      L <- L[, !(colnames(L) %in% c("Region", "Gate", "Total", "% Agg Beads", "Sampling Errors"))]
+      L <- L[, !(colnames(L) %in% c("Region", "Gate", "Total", "% Agg Beads", "Sampling Errors", "Description"))]
       
       # Antigen names clean-up
       colnames(L) = gsub("\\..*", "", colnames(L))