diff --git a/modules/Units/R/units_transform.R b/modules/Units/R/units_transform.R index 11e05f3116ca2870e742606db99276064592aa85..7277b9b6bd50446fe9c855f833d5f6293731d561 100644 --- a/modules/Units/R/units_transform.R +++ b/modules/Units/R/units_transform.R @@ -4,6 +4,9 @@ units_transform <- function(data, orig_units, user_units, var_name, freq, flux = ncores = NULL) { ## TODO: Change how argument 'flux' works for (i in 1:length(var_name)) { + if (orig_units[i] == "degc") { + orig_units[i] <- "c" + } if (!(orig_units[i] == user_units[i])) { if (orig_units[i] %in% c("c", "k")) { if (user_units[i] %in% c("c", "k")) {