Update R/qenv-get_warnings.R

m7pr · gogonzo · web-flow · commit 3e4582e83c04 · 2024-11-07T15:18:52.000+01:00
Co-authored-by: Dawid Kałędkowski &lt;dawid.kaledkowski@gmail.com&gt;
Signed-off-by: Marcin &lt;133694481+m7pr@users.noreply.github.com&gt;
diff --git a/R/qenv-get_warnings.R b/R/qenv-get_warnings.R
@@ -37,7 +37,7 @@ setMethod("get_warnings", signature = c("qenv"), function(object) {
   idx_warn <- which(sapply(warnings, Negate(is.null)))
   warnings <- warnings[idx_warn]
   code <- object@code[idx_warn]
-  if (length(unlist(warnings)) == 0) {
+  if (length(warnings) == 0) {
     return(NULL)
   }
 

Original file line number	Diff line number	Diff line change
`@@ -37,7 +37,7 @@ setMethod("get_warnings", signature = c("qenv"), function(object) {`
`37`	`37`	`idx_warn <- which(sapply(warnings, Negate(is.null)))`
`38`	`38`	`warnings <- warnings[idx_warn]`
`39`	`39`	`code <- object@code[idx_warn]`
`40`		`- if (length(unlist(warnings)) == 0) {`
	`40`	`+ if (length(warnings) == 0) {`
`41`	`41`	`return(NULL)`
`42`	`42`	`}`
`43`	`43`