TADAPriorityCharConvertRef

USEPA · Sep 9, 2024 · fae664f · fae664f
1 parent 0ffd91c
commit fae664f
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 4 deletions.
diff --git a/R/UnitConversions.R b/R/UnitConversions.R
@@ -149,7 +149,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"
     )
@@ -161,7 +160,6 @@ TADA_CreateUnitRef <- function(.data, print.message = TRUE) {
     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)
 

diff --git a/inst/extdata/TADAPriorityCharConvertRef.csv b/inst/extdata/TADAPriorityCharConvertRef.csv
@@ -33,8 +33,8 @@ MPN/L,4/30/2024 12:45,CFU/100ML,1.0000E-01,0
 Angst,4/30/2024 12:45,m,1.0000E-10,0
 cm,4/30/2024 12:45,m,1.0000E-02,0
 dm,4/30/2024 12:45,m,1.0000E-01,0
-feet,4/30/2024 12:45,m,3.0500E-01,0
-ft,4/30/2024 12:45,m,3.0500E-01,0
+feet,4/30/2024 12:45,m,3.0480E-01,0
+ft,4/30/2024 12:45,m,3.0480E-01,0
 in,4/30/2024 12:45,m,2.5400E-02,0
 km,4/30/2024 12:45,m,1.0000E+03,0
 m,4/30/2024 12:45,m,1.0000E+00,0