Update R/validation.R use seq_len

stemangiola · Copilot · web-flow · commit 33b507236120 · 2025-07-20T10:32:56.000+09:30
Co-authored-by: Copilot &lt;175728472+Copilot@users.noreply.github.com&gt;
diff --git a/R/validation.R b/R/validation.R
@@ -240,7 +240,7 @@ check_sample_consistency_of_factors = function(.data, my_formula, sample, cell_g
     for(sample_name in unique(inconsistent_samples |> pull(!!.sample))) {
       sample_issues = inconsistent_samples |> filter(!!.sample == sample_name)
       error_msg = paste0(error_msg, "\nSample: ", sample_name, "\n")
-      for(i in 1:nrow(sample_issues)) {
+      for(i in seq_len(nrow(sample_issues))) {
         row = sample_issues[i, ]
         error_msg = paste0(error_msg, "  - ", row$factor_name, ": ", row$unique_values, "\n")
       }

Original file line number	Diff line number	Diff line change
`@@ -240,7 +240,7 @@ check_sample_consistency_of_factors = function(.data, my_formula, sample, cell_g`
`240`	`240`	`for(sample_name in unique(inconsistent_samples \|> pull(!!.sample))) {`
`241`	`241`	`sample_issues = inconsistent_samples \|> filter(!!.sample == sample_name)`
`242`	`242`	`error_msg = paste0(error_msg, "\nSample: ", sample_name, "\n")`
`243`		`- for(i in 1:nrow(sample_issues)) {`
	`243`	`+ for(i in seq_len(nrow(sample_issues))) {`
`244`	`244`	`row = sample_issues[i, ]`
`245`	`245`	`error_msg = paste0(error_msg, " - ", row$factor_name, ": ", row$unique_values, "\n")`
`246`	`246`	`}`