#216 admiral_0_11_update: style files

pharmaverse · Jun 1, 2023 · 1b874d2 · 1b874d2
1 parent 0cc661c
commit 1b874d2
Show file tree

Hide file tree

Showing 7 changed files with 9 additions and 11 deletions.
diff --git a/R/derive_param_bor.R b/R/derive_param_bor.R
@@ -313,7 +313,7 @@ derive_param_bor <- function(dataset,
 
   if (!missing(aval_fun)) {
     deprecate_warn("0.4.0", "derive_param_bor(aval_fun = )", "derive_param_bor(set_values_to = )")
-    set_values_to <- exprs(!!!set_values_to, AVAL = {{aval_fun}}(AVALC))
+    set_values_to <- exprs(!!!set_values_to, AVAL = {{ aval_fun }}(AVALC))
   }
 
   #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

diff --git a/R/derive_param_clinbenefit.R b/R/derive_param_clinbenefit.R
@@ -230,7 +230,7 @@ derive_param_clinbenefit <- function(dataset,
       "derive_param_clinbenefit(set_values_to = )"
     )
     assert_function(aval_fun)
-    set_values_to <- exprs(!!!set_values_to, AVAL = {{aval_fun}}(AVALC))
+    set_values_to <- exprs(!!!set_values_to, AVAL = {{ aval_fun }}(AVALC))
   }
 
   source_names <- names(source_datasets)

diff --git a/R/derive_param_confirmed_bor.R b/R/derive_param_confirmed_bor.R
@@ -357,7 +357,7 @@ derive_param_confirmed_bor <- function(dataset,
       "derive_param_confirmed_bor(aval_fun = )",
       "derive_param_confirmed_bor(set_values_to = )"
     )
-    set_values_to <- exprs(!!!set_values_to, AVAL = {{aval_fun}}(AVALC))
+    set_values_to <- exprs(!!!set_values_to, AVAL = {{ aval_fun }}(AVALC))
   }
   #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
   # filter_pd and filter_source: Filter source dataset using filter_source----

diff --git a/R/derive_param_confirmed_resp.R b/R/derive_param_confirmed_resp.R
@@ -289,7 +289,7 @@ derive_param_confirmed_resp <- function(dataset,
       "derive_param_confirmed_resp(aval_fun = )",
       "derive_param_confirmed_resp(set_values_to = )"
     )
-    set_values_to <- exprs(!!!set_values_to, AVAL = {{aval_fun}}(AVALC))
+    set_values_to <- exprs(!!!set_values_to, AVAL = {{ aval_fun }}(AVALC))
   }
   #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
   # filter_pd and filter_source: Filter source dataset using filter_source----

diff --git a/R/derive_param_response.R b/R/derive_param_response.R
@@ -198,7 +198,7 @@ derive_param_response <- function(dataset,
       "derive_param_response(aval_fun = )",
       "derive_param_response(set_values_to = )"
     )
-    set_values_to <- exprs(!!!set_values_to, AVAL = {{aval_fun}}(AVALC))
+    set_values_to <- exprs(!!!set_values_to, AVAL = {{ aval_fun }}(AVALC))
   }
 
   #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

diff --git a/tests/testthat/test-filter_pd.R b/tests/testthat/test-filter_pd.R
@@ -1,4 +1,3 @@
-
 # filter_pd ----
 ## filter_pd Test 1: first PD in separate BDS dataset ----
 test_that("filter_pd Test 1: first PD in separate BDS dataset", {

diff --git a/tests/testthat/test-utils.R b/tests/testthat/test-utils.R
@@ -1,4 +1,3 @@
-
 data <- tibble::tribble(
   ~AVALC,
   "YES",
@@ -44,10 +43,10 @@ test_that("call_aval_fun Test 2: Test error for invalid aval_fun", {
   expect_error(
     suppress_warning(
       call_aval_fun(
-      data,
-      aval_fun = bad_fun
-    ),
-    regexpr = "deprecated"
+        data,
+        aval_fun = bad_fun
+      ),
+      regexpr = "deprecated"
     ),
     regexp = "Assigning new AVAL records with aval_fun"
   )