fix linter

benesom · benesom · commit 998b124f778a · 2025-12-10T18:31:15.000+01:00
diff --git a/R/Trial.R b/R/Trial.R
@@ -819,7 +819,7 @@ trial_simulate <- function(self, n, .niter, ...) {
       }
       xt <- lapply(xt, data.table)
       if (count == 0) nsim <- n * length(xt)
-      for (i in seq_len(length(xt))) {
+      for (i in seq_along(xt)) {
         ## Append subject id and period variable
         xt[[i]][, `:=`(id = ids, num = i - 1)]
       }

Original file line number	Diff line number	Diff line change
`@@ -819,7 +819,7 @@ trial_simulate <- function(self, n, .niter, ...) {`
`819`	`819`	`}`
`820`	`820`	`xt <- lapply(xt, data.table)`
`821`	`821`	`if (count == 0) nsim <- n * length(xt)`
`822`		`- for (i in seq_len(length(xt))) {`
	`822`	`+ for (i in seq_along(xt)) {`
`823`	`823`	`## Append subject id and period variable`
`824`	`824`	xt[[i]][, `:=`(id = ids, num = i - 1)]
`825`	`825`	`}`