TADA_CreateUnitRef and TADAPriorityCharConvertRef update

USEPA · Sep 9, 2024 · 0ffd91c · 0ffd91c
1 parent afde8ea
commit 0ffd91c
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/R/UnitConversions.R b/R/UnitConversions.R
@@ -126,6 +126,8 @@ TADA_CreateUnitRef <- function(.data, print.message = TRUE) {
     dplyr::select(
       "TADA.CharacteristicName", "TADA.ResultMeasure.MeasureUnitCode",
       "TADA.Target.ResultMeasure.MeasureUnitCode", "ResultMeasure.MeasureUnitCode", "CharUnit"
+      "TADA.Target.ResultMeasure.MeasureUnitCode", "ResultMeasure.MeasureUnitCode",
+      "Conversion.Factor", "Conversion.Coefficient", "CharUnit"
     )
 
   # remove intermediate objects
@@ -148,14 +150,20 @@ TADA_CreateUnitRef <- function(.data, print.message = TRUE) {
     dplyr::select(
       "TADA.CharacteristicName", "TADA.ResultMeasure.MeasureUnitCode",
       "TADA.Target.ResultMeasure.MeasureUnitCode", "ResultMeasure.MeasureUnitCode", "CharUnit"
+      "TADA.Target.ResultMeasure.MeasureUnitCode", "ResultMeasure.MeasureUnitCode",
+      "Conversion.Factor", "Conversion.Coefficient", "CharUnit"
     )
 
 
     # select columns needed for final unit ref and combine dfs
   tada.all <- tada.targets %>%
     dplyr::full_join(tada.wqx, by = names(tada.targets)) %>%
+    dplyr::rename(TADA.WQXUnitConversionFactor = Conversion.Factor,
+                  TADA.WQXUnitConversionCoefficient = Conversion.Coefficient) %>%
     dplyr::select(TADA.CharacteristicName, TADA.ResultMeasure.MeasureUnitCode,
                   TADA.Target.ResultMeasure.MeasureUnitCode, ResultMeasure.MeasureUnitCode, CharUnit)
+                  TADA.Target.ResultMeasure.MeasureUnitCode, ResultMeasure.MeasureUnitCode,
+                  TADA.WQXUnitConversionFactor, TADA.WQXUnitConversionCoefficient, CharUnit)
 
   # remove intermediate objects
   rm(tada.targets, tada.wqx)