more lint fixes

openpharma · Feb 22, 2024 · aa19c67 · aa19c67
1 parent 2125c31
commit aa19c67
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/R/simaerep.R b/R/simaerep.R
@@ -975,7 +975,7 @@ sim_after_prep <- function(df_sim_prep,
 get_pat_pool_config <- function(df_visit, df_site, min_n_pat_with_med75 = 1) {
 
   # site_config are the number of sites with their individual visit_med75 and n_pat_with_med75
-  df_site_config <- select(df_site,c(
+  df_site_config <- select(df_site, c(
                            "study_id",
                            "site_number",
                            "visit_med75",

diff --git a/R/simulate_test_data.R b/R/simulate_test_data.R
@@ -48,14 +48,14 @@ sim_test_data_study <- function(n_pat = 1000,
     if (! any(c(is.null(ae_rates), is.na(ae_rates)))) {
 
       if (is_ur) {
-        ae_rates <- ae_rates * (1-ur_rate)
+        ae_rates <- ae_rates * (1-ur_rate) # nolint
       }
 
       f_sample_ae <- function(max_visit) {
 
         # extrapolate missing ae rates by extending last rate
         fill <- rep(ae_rates[length(ae_rates)], max_visit)
-        fill[1: length(ae_rates)] <- ae_rates
+        fill[seq_along(ae_rates)] <- ae_rates
         ae_rates <- fill
 
         aes <- integer(0)
@@ -606,7 +606,7 @@ sim_test_data_portfolio <- function(df_config, df_ae_rates = NULL, parallel = FA
 
   df_portf <- df_config_sim %>%
     unnest("sim") %>%
-    select(- c("n_pat" ,"ae_rates")) %>%
+    select(- c("n_pat", "ae_rates")) %>%
     group_by(.data$study_id) %>%
     mutate(
       # patnums need to be made site exclusive