From fae664fa584fce4adb2d0eabc82bf21570b3dd5b Mon Sep 17 00:00:00 2001 From: Kenny Wong Date: Mon, 9 Sep 2024 18:19:46 -0400 Subject: [PATCH] TADAPriorityCharConvertRef --- R/UnitConversions.R | 2 -- inst/extdata/TADAPriorityCharConvertRef.csv | 4 ++-- 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/R/UnitConversions.R b/R/UnitConversions.R index 6650f4e3..3f12ad19 100644 --- 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 index 56c98e7a..b3242093 100644 --- 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