#32 rename metadata for height/length variables

pharmaverse · Jun 4, 2024 · ffd1adc · ffd1adc
1 parent ee202c5
commit ffd1adc
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/inst/templates/ad_advs.R b/inst/templates/ad_advs.R
@@ -127,18 +127,18 @@ who_wt_for_ht_lgth <- who_wt_for_ht_boys %>%
     mutate(SEX = "F")) %>%
   mutate(
     MEASURE = "HEIGHT",
-    HEIGHTU = "cm"
+    HEIGHT_LENGTHU = "cm"
   ) %>%
-  rename(HEIGHT = Height) %>%
+  rename(HEIGHT_LENGTH = Height) %>%
   bind_rows(who_wt_for_lgth_boys %>%
     mutate(SEX = "M") %>%
     bind_rows(who_wt_for_lgth_girls %>%
       mutate(SEX = "F")) %>%
     mutate(
       MEASURE = "LENGTH",
-      HEIGHTU = "cm"
+      HEIGHT_LENGTHU = "cm"
     ) %>%
-    rename(HEIGHT = Length))
+    rename(HEIGHT_LENGTH = Length))
 
 # Load source datasets ----