Merge pull request #355 from RobFryer/bug_354

Bug 354 determinand always in upper case
osparcomm · Nov 2, 2023 · d09f190 · d09f190
2 parents 969a0e0 + d6e17de
commit d09f190
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 0 deletions.
diff --git a/R/import_functions.R b/R/import_functions.R
@@ -737,7 +737,17 @@ read_contaminants <- function(file, data_dir = ".", info) {
     } else {
       data$subseries <- NA_character_
     }
+
+
+    # convert param (determinand) and munit (unit) to upper / lower case
 
+    data <- dplyr::mutate(
+      data, 
+      param = toupper(.data$param),
+      munit = tolower(.data$munit)
+    )
+
+
     return(data)
   }  
 

diff --git a/R/information_functions.R b/R/information_functions.R
@@ -505,6 +505,12 @@ ctsm_read_determinand <- function(
   )
 
 
+
+  # ensure determinand is in upper case 
+
+  data$determinand <- toupper(data$determinand)
+
+
   # fill in common name if missing and create optional variables if missing
 
   data$common_name <- ifelse(