Fix code styling issues

pharmaverse · May 24, 2024 · d586512 · d586512
1 parent 25828c4
commit d586512
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 9 deletions.
diff --git a/R/derive_seq.R b/R/derive_seq.R
@@ -53,8 +53,9 @@ derive_seq <-
     admiraldev::assert_character_vector(rec_vars)
     admiraldev::assert_character_vector(sbj_vars)
     admiraldev::assert_data_frame(tgt_dat,
-                                  required_vars = rlang::syms(rec_vars),
-                                  optional = FALSE)
+      required_vars = rlang::syms(rec_vars),
+      optional = FALSE
+    )
 
     admiraldev::assert_integer_scalar(start_at, subset = "non-negative")
 

diff --git a/data-raw/sdtm_domain_examples.R b/data-raw/sdtm_domain_examples.R
@@ -7,13 +7,13 @@ library(here)
 path <- here::here("inst/domain")
 
 vs <- tibble::tribble(
-  ~STUDYID, ~DOMAIN,      ~USUBJID,                  ~VSSPID, ~VSTESTCD,             ~VSDTC, ~VSTPTNUM,
-  "ABC123",    "VS",  "ABC123-375", "/F:VTLS1-D:9795532-R:2", "DIABP", "2020-09-01T13:31",  NA,
-  "ABC123",    "VS",  "ABC123-375", "/F:VTLS1-D:9795532-R:2", "TEMP",  "2020-09-01T13:31",  NA,
-  "ABC123",    "VS",  "ABC123-375", "/F:VTLS2-D:9795533-R:2", "DIABP", "2020-09-28T11:00",  2L,
-  "ABC123",    "VS",  "ABC123-375", "/F:VTLS2-D:9795533-R:2", "TEMP",  "2020-09-28T11:00",  2L,
-  "ABC123",    "VS",  "ABC123-376", "/F:VTLS1-D:9795591-R:1", "DIABP", "2020-09-20",        NA,
-  "ABC123",    "VS",  "ABC123-376", "/F:VTLS1-D:9795591-R:1", "TEMP",  "2020-09-20",        NA
+  ~STUDYID, ~DOMAIN, ~USUBJID, ~VSSPID, ~VSTESTCD, ~VSDTC, ~VSTPTNUM,
+  "ABC123", "VS", "ABC123-375", "/F:VTLS1-D:9795532-R:2", "DIABP", "2020-09-01T13:31", NA,
+  "ABC123", "VS", "ABC123-375", "/F:VTLS1-D:9795532-R:2", "TEMP", "2020-09-01T13:31", NA,
+  "ABC123", "VS", "ABC123-375", "/F:VTLS2-D:9795533-R:2", "DIABP", "2020-09-28T11:00", 2L,
+  "ABC123", "VS", "ABC123-375", "/F:VTLS2-D:9795533-R:2", "TEMP", "2020-09-28T11:00", 2L,
+  "ABC123", "VS", "ABC123-376", "/F:VTLS1-D:9795591-R:1", "DIABP", "2020-09-20", NA,
+  "ABC123", "VS", "ABC123-376", "/F:VTLS1-D:9795591-R:1", "TEMP", "2020-09-20", NA
 )
 
 apsc <- tibble::tribble(