#22: Updated as per styler

pharmaverse · Sep 15, 2024 · 319d05d · 319d05d
1 parent 356fd6d
commit 319d05d
Showing 1 changed file with 10 additions and 10 deletions.
diff --git a/vignettes/advs.Rmd b/vignettes/advs.Rmd
@@ -120,16 +120,16 @@ collected in metabolic trials - `BMI`, `HIPCIR` and `WSTCIR`.
 
 ```{r, echo=TRUE, message=FALSE}
 param_lookup <- tribble(
-  ~VSTESTCD, ~PARAMCD, ~PARAM,                           ~PARAMN, ~PARCAT1,                 ~PARCAT1N,
-  "HEIGHT", "HEIGHT", "Height (cm)",                     1,       "Subject Characteristic", 1,
-  "WEIGHT", "WEIGHT", "Weight (kg)",                     2,       "Subject Characteristic", 1,
-  "BMI",    "BMI",    "Body Mass Index(kg/m^2)",         3,       "Subject Characteristic", 1,
-  "HIPCIR", "HIPCIR", "Hip Circumference (cm)",          4,       "Subject Characteristic", 1,
-  "WSTCIR", "WSTCIR", "Waist Circumference (cm)",        5,       "Subject Characteristic", 1,
-  "DIABP",  "DIABP",  "Diastolic Blood Pressure (mmHg)", 6,       "Vital Sign",             2,
-  "PULSE",  "PULSE",  "Pulse Rate (beats/min)",          7,       "Vital Sign",             2,
-  "SYSBP",  "SYSBP",  "Systolic Blood Pressure (mmHg)",  8,       "Vital Sign",             2,
-  "TEMP",   "TEMP",   "Temperature (C)",                 9,       "Vital Sign",             2
+  ~VSTESTCD, ~PARAMCD, ~PARAM, ~PARAMN, ~PARCAT1, ~PARCAT1N,
+  "HEIGHT", "HEIGHT", "Height (cm)", 1, "Subject Characteristic", 1,
+  "WEIGHT", "WEIGHT", "Weight (kg)", 2, "Subject Characteristic", 1,
+  "BMI", "BMI", "Body Mass Index(kg/m^2)", 3, "Subject Characteristic", 1,
+  "HIPCIR", "HIPCIR", "Hip Circumference (cm)", 4, "Subject Characteristic", 1,
+  "WSTCIR", "WSTCIR", "Waist Circumference (cm)", 5, "Subject Characteristic", 1,
+  "DIABP", "DIABP", "Diastolic Blood Pressure (mmHg)", 6, "Vital Sign", 2,
+  "PULSE", "PULSE", "Pulse Rate (beats/min)", 7, "Vital Sign", 2,
+  "SYSBP", "SYSBP", "Systolic Blood Pressure (mmHg)", 8, "Vital Sign", 2,
+  "TEMP", "TEMP", "Temperature (C)", 9, "Vital Sign", 2
 )
 
 attr(param_lookup$VSTESTCD, "label") <- "Vital Signs Test Short Name"