Update UnitConversions.R

USEPA · Sep 10, 2024 · 9e04979 · 9e04979
1 parent fae664f
commit 9e04979
Showing 1 changed file with 0 additions and 2 deletions.
diff --git a/R/UnitConversions.R b/R/UnitConversions.R
@@ -125,7 +125,6 @@ TADA_CreateUnitRef <- function(.data, print.message = TRUE) {
     # select columns needed for final unit ref
     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"
     )
@@ -212,7 +211,6 @@ TADA_CreateUnitRef <- function(.data, print.message = TRUE) {
     dplyr::select(-CharUnit) %>%
     dplyr::distinct()
 
-
   # return reference table for use in unit conversion functions or for more editing by user
   return(tada.all)
 }