minor

benesom · benesom · commit 3570fa12c154 · 2026-02-11T17:22:36.000+01:00
diff --git a/R/Trial.R b/R/Trial.R
@@ -843,7 +843,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
`@@ -843,7 +843,7 @@ trial_simulate <- function(self, n, .niter, ...) {`
`843`	`843`	`}`
`844`	`844`	`xt <- lapply(xt, data.table)`
`845`	`845`	`if (count == 0) nsim <- n * length(xt)`
`846`		`- for (i in seq_len(length(xt))) {`
	`846`	`+ for (i in seq_along(xt)) {`
`847`	`847`	`## Append subject id and period variable`
`848`	`848`	xt[[i]][, `:=`(id = ids, num = i - 1)]
`849`	`849`	`}`