Style code (GHA)

Merck · Jul 26, 2023 · 5d137e8 · 5d137e8
1 parent 15f6f76
commit 5d137e8
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/prepare_ae_specific.R b/R/prepare_ae_specific.R
@@ -148,7 +148,8 @@ prepare_ae_specific <- function(meta,
   # Define SOC section
   if ("soc" %in% components && nrow(obs) > 0) {
     soc_n <- metalite::n_subject(obs[[obs_id]], obs[[obs_group]], obs[[par_soc]],
-                                 na = "NULL", use_na = "always")
+      na = "NULL", use_na = "always"
+    )
 
     soc_n[[par_soc]] <- soc_n$name
     soc_n[[par_var]] <- soc_n$name
@@ -163,7 +164,8 @@ prepare_ae_specific <- function(meta,
     u_soc <- unique(obs[order(obs[[par_soc]]), c(par_soc, par_var)])
 
     par_n <- metalite::n_subject(obs[[obs_id]], obs[[obs_group]], obs[[par_var]],
-                                 na = "NULL", use_na = "always")
+      na = "NULL", use_na = "always"
+    )
 
     par_n[[par_var]] <- par_n$name
     par_n <- merge(u_soc, par_n, all.y = TRUE)