chore: add extra early return statement in eval_code for empty code

averissimo · averissimo · commit c4bf214eff30 · 2025-06-12T14:22:47.000+01:00
diff --git a/R/qenv-eval_code.R b/R/qenv-eval_code.R
@@ -41,7 +41,7 @@ setMethod("eval_code", signature = c(object = "qenv.error"), function(object, co
 
 #' @keywords internal
 .eval_code <- function(object, code, ...) {
-  if (identical(code, "")) {
+  if (identical(trimws(code), "") || length(code) == 0) {
     return(object)
   }
   parsed_code <- parse(text = code, keep.source = TRUE)

Original file line number	Diff line number	Diff line change
`@@ -41,7 +41,7 @@ setMethod("eval_code", signature = c(object = "qenv.error"), function(object, co`
`41`	`41`
`42`	`42`	`#' @keywords internal`
`43`	`43`	`.eval_code <- function(object, code, ...) {`
`44`		`- if (identical(code, "")) {`
	`44`	`+ if (identical(trimws(code), "") \|\| length(code) == 0) {`
`45`	`45`	`return(object)`
`46`	`46`	`}`
`47`	`47`	`parsed_code <- parse(text = code, keep.source = TRUE)`