#1968 compute_multiple_vars: style files

pharmaverse · Jul 28, 2023 · e8c533f · e8c533f
1 parent ab55517
commit e8c533f
Show file tree

Hide file tree

Showing 2 changed files with 24 additions and 21 deletions.
diff --git a/R/derive_param_computed.R b/R/derive_param_computed.R
@@ -264,8 +264,8 @@
 #'   "2",      "TBILI2", "N",    "2021-11-11", NA_character_,
 #'   "3",      "ALK2",   "N",    "2021-04-03", NA_character_,
 #'   "3",      "TBILI2", "N",    "2021-04-04", NA_character_
-#'   ) %>%
-#'     mutate(ADTM = ymd(ADTM))
+#' ) %>%
+#'   mutate(ADTM = ymd(ADTM))
 #'
 #' derive_param_computed(
 #'   dataset_add = adlb_tbilialk,
@@ -315,7 +315,7 @@ derive_param_computed <- function(dataset = NULL,
       "derive_param_computed(analysis_value = )",
       "derive_param_computed(set_values_to = )"
     )
-    set_values_to = exprs(!!analysis_var := !!enexpr(analysis_value), !!!set_values_to)
+    set_values_to <- exprs(!!analysis_var := !!enexpr(analysis_value), !!!set_values_to)
   }
 
   parameters <- assert_parameters_argument(parameters)
@@ -367,7 +367,8 @@ derive_param_computed <- function(dataset = NULL,
       !!!parse_exprs(map_chr(
         analysis_vars_chr,
         ~ str_c("!is.na(", .x, ")")
-      )))
+      ))
+    )
   }
   hori_data <- hori_data %>%
     process_set_values_to(set_values_to) %>%

diff --git a/tests/testthat/test-derive_param_computed.R b/tests/testthat/test-derive_param_computed.R
@@ -14,7 +14,8 @@ test_that("derive_param_computed Test 1: new observations are derived correctly"
   )
 
   new_obs <-
-    inner_join(input %>% filter(PARAMCD == "DIABP") %>% select(USUBJID, VISIT, AVAL),
+    inner_join(
+      input %>% filter(PARAMCD == "DIABP") %>% select(USUBJID, VISIT, AVAL),
       input %>% filter(PARAMCD == "SYSBP") %>% select(USUBJID, VISIT, AVAL),
       by = c("USUBJID", "VISIT"),
       suffix = c(".DIABP", ".SYSBP")
@@ -388,19 +389,19 @@ test_that("derive_param_computed Test 9: compute multiple variables, keep_nas",
   expect_dfs_equal(
     base = expected,
     compare = derive_param_computed(
-    dataset_add = adlb_tbilialk,
-    by_vars = exprs(USUBJID),
-    parameters = c("ALK2", "TBILI2"),
-    set_values_to = exprs(
-      AVALC = if_else(AVALC.TBILI2 == "Y" & AVALC.ALK2 == "Y", "Y", "N"),
-      ADTM = pmax(ADTM.TBILI2, ADTM.ALK2),
-      ADTF = if_else(ADTM == ADTM.TBILI2, ADTF.TBILI2, ADTF.ALK2),
-      PARAMCD = "TB2AK2",
-      PARAM = "TBILI > 2 times ULN and ALKPH <= 2 times ULN"
+      dataset_add = adlb_tbilialk,
+      by_vars = exprs(USUBJID),
+      parameters = c("ALK2", "TBILI2"),
+      set_values_to = exprs(
+        AVALC = if_else(AVALC.TBILI2 == "Y" & AVALC.ALK2 == "Y", "Y", "N"),
+        ADTM = pmax(ADTM.TBILI2, ADTM.ALK2),
+        ADTF = if_else(ADTM == ADTM.TBILI2, ADTF.TBILI2, ADTF.ALK2),
+        PARAMCD = "TB2AK2",
+        PARAM = "TBILI > 2 times ULN and ALKPH <= 2 times ULN"
+      ),
+      keep_nas = TRUE
     ),
-    keep_nas = TRUE
-  ),
-  keys = c("USUBJID")
+    keys = c("USUBJID")
   )
 })
 
@@ -419,10 +420,11 @@ test_that("derive_param_computed Test 10: deprecation warning if analysis_value
   )
 
   new_obs <-
-    inner_join(input %>% filter(PARAMCD == "DIABP") %>% select(USUBJID, VISIT, AVAL),
-               input %>% filter(PARAMCD == "SYSBP") %>% select(USUBJID, VISIT, AVAL),
-               by = c("USUBJID", "VISIT"),
-               suffix = c(".DIABP", ".SYSBP")
+    inner_join(
+      input %>% filter(PARAMCD == "DIABP") %>% select(USUBJID, VISIT, AVAL),
+      input %>% filter(PARAMCD == "SYSBP") %>% select(USUBJID, VISIT, AVAL),
+      by = c("USUBJID", "VISIT"),
+      suffix = c(".DIABP", ".SYSBP")
     ) %>%
     mutate(
       AVAL = (2 * AVAL.DIABP + AVAL.SYSBP) / 3,