Update Utilities.R

Convert NONE to NA for TADA.MethodSpeciationName and TADA.ResultSampleFractionText in TADA_Autoclean
USEPA · Jul 29, 2024 · a5f9e84 · a5f9e84
1 parent e9c0df4
commit a5f9e84
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/R/Utilities.R b/R/Utilities.R
@@ -243,13 +243,19 @@ TADA_AutoClean <- function(.data) {
   } else {
     # create uppercase version of original ResultSampleFractionText
     .data$TADA.ResultSampleFractionText <- toupper(.data$ResultSampleFractionText)
+    # convert "NONE" to NA for TADA.ResultSampleFractionText
+    .data$TADA.ResultSampleFractionText <- ifelse(.data$TADA.ResultSampleFractionText == "NONE",
+                                              NA, .data$TADA.ResultSampleFractionText)
   }
 
   if ("TADA.MethodSpeciationName" %in% colnames(.data)) {
     .data <- .data
   } else {
     # create uppercase version of original MethodSpeciationName
     .data$TADA.MethodSpeciationName <- toupper(.data$MethodSpeciationName)
+    # convert "NONE" to NA for TADA.MethodSpeciationName
+    .data$TADA.MethodSpeciationName <- ifelse(.data$TADA.MethodSpeciationName == "NONE",
+                                              NA, .data$TADA.MethodSpeciationName)
   }
 
   if ("TADA.ResultMeasure.MeasureUnitCode" %in% colnames(.data)) {