Merge pull request #194 from tonygard-indecon/update_convertTemps

Update convertTemps to handle variation in case of `from` arg
USEPA · Oct 24, 2024 · ceac0c6 · ceac0c6
2 parents 08ead1b + 0696172
commit ceac0c6
Showing 1 changed file with 7 additions and 3 deletions.
diff --git a/FrEDI/R/convertTemps.R b/FrEDI/R/convertTemps.R
@@ -33,13 +33,17 @@ convertTemps <- function(
   c0 <- 0 ### Update
   c1 <- 1.421 ### Update
 
-  toType <- from |> tolower()
-  if(from == "global"){
+  ## Make "from" argument lowercase
+  fromType <- from |> tolower()
+
+  if(fromType == "global"){
     temp_global <- temps
     new_temps   <- c1*temp_global + c0
-  } else{
+  } else if(fromType == "conus"){
     temp_conus <- temps
     new_temps  <- (temp_conus - c0)/c1
+  } else {
+    stop("Warning! In convertTemps(): Invalid value provided to from argument. Please enter a valid value. Exiting...")
   }
 
   ###### Return ######