Merge pull request #119 from billdenney/simplify

tonyfischetti · web-flow · commit bb42a83af084 · 2023-03-13T12:50:15.000-04:00
Slight code speedup/simplification
diff --git a/R/assertions.R b/R/assertions.R
@@ -701,7 +701,7 @@ verify <- function(data, expr, success_fun=success_continue,
   assertion.id <- generate_id()
   error <- make.assertr.verify.error("verify",
                                      num.violations, deparse(expr),
-                                     (1:length(logical.results))[!logical.results],
+                                     which(!logical.results),
                                      description, assertion.id)
   error_fun(list(error), data=data)
 }

Original file line number	Diff line number	Diff line change
`@@ -701,7 +701,7 @@ verify <- function(data, expr, success_fun=success_continue,`
`701`	`701`	`assertion.id <- generate_id()`
`702`	`702`	`error <- make.assertr.verify.error("verify",`
`703`	`703`	`num.violations, deparse(expr),`
`704`		`- (1:length(logical.results))[!logical.results],`
	`704`	`+ which(!logical.results),`
`705`	`705`	`description, assertion.id)`
`706`	`706`	`error_fun(list(error), data=data)`
`707`	`707`	`}`