use the extracted code

m7pr · m7pr · commit 112d2cbc6ddf · 2024-10-16T14:43:40.000+02:00
diff --git a/R/qenv-get_code.R b/R/qenv-get_code.R
@@ -116,13 +116,13 @@ setMethod("get_code", signature = "qenv", function(object, deparse = TRUE, names
   }
 
   if (deparse) {
-    if (length(object@code) == 0) {
-      object@code
+    if (length(code) == 0) {
+      code
     } else {
-      paste(object@code, collapse = "\n")
+      paste(code, collapse = "\n")
     }
   } else {
-    parse(text = paste(c("{", object@code, "}"), collapse = "\n"), keep.source = TRUE)
+    parse(text = paste(c("{", code, "}"), collapse = "\n"), keep.source = TRUE)
   }
 })
 

Original file line number	Diff line number	Diff line change
`@@ -116,13 +116,13 @@ setMethod("get_code", signature = "qenv", function(object, deparse = TRUE, names`
`116`	`116`	`}`
`117`	`117`
`118`	`118`	`if (deparse) {`
`119`		`- if (length(object@code) == 0) {`
`120`		`- object@code`
	`119`	`+ if (length(code) == 0) {`
	`120`	`+ code`
`121`	`121`	`} else {`
`122`		`- paste(object@code, collapse = "\n")`
	`122`	`+ paste(code, collapse = "\n")`
`123`	`123`	`}`
`124`	`124`	`} else {`
`125`		`- parse(text = paste(c("{", object@code, "}"), collapse = "\n"), keep.source = TRUE)`
	`125`	`+ parse(text = paste(c("{", code, "}"), collapse = "\n"), keep.source = TRUE)`
`126`	`126`	`}`
`127`	`127`	`})`
`128`	`128`