Add Parent:

gogonzo · gogonzo · commit 059165fd5416 · 2024-12-20T10:47:27.000+01:00
diff --git a/R/qenv-show.R b/R/qenv-show.R
@@ -23,7 +23,7 @@ setMethod("show", "qenv", function(object) {
   } else {
     ""
   }
-  parent <- sprintf("<environment: %s>", rlang::env_label(rlang::env_parent(env)))
+  parent <- sprintf("Parent: <environment: %s>", rlang::env_label(rlang::env_parent(env)))
   cat(cli::style_bold(paste0(header, locked)), sep = "\n")
   cat(parent, "\n")
 

Original file line number	Diff line number	Diff line change
`@@ -23,7 +23,7 @@ setMethod("show", "qenv", function(object) {`
`23`	`23`	`} else {`
`24`	`24`	`""`
`25`	`25`	`}`
`26`		`- parent <- sprintf("<environment: %s>", rlang::env_label(rlang::env_parent(env)))`
	`26`	`+ parent <- sprintf("Parent: <environment: %s>", rlang::env_label(rlang::env_parent(env)))`
`27`	`27`	`cat(cli::style_bold(paste0(header, locked)), sep = "\n")`
`28`	`28`	`cat(parent, "\n")`
`29`	`29`