Update UnitConversions.R

Changed order of columns to make it more clear on which columns are using the conversion factor
USEPA · Sep 16, 2024 · 4b31207 · 4b31207
1 parent 9e04979
commit 4b31207
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/UnitConversions.R b/R/UnitConversions.R
@@ -158,8 +158,8 @@ TADA_CreateUnitRef <- function(.data, print.message = TRUE) {
     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,
+    dplyr::select(TADA.CharacteristicName, ResultMeasure.MeasureUnitCode,  
+                  TADA.ResultMeasure.MeasureUnitCode, TADA.Target.ResultMeasure.MeasureUnitCode, 
                   TADA.WQXUnitConversionFactor, TADA.WQXUnitConversionCoefficient, CharUnit)
 
   # remove intermediate objects