Update address

renkun-ken · renkun-ken · commit e467d38faa13 · 2021-10-13T14:10:59.000+08:00
diff --git a/R/session/vsc.R b/R/session/vsc.R
@@ -125,8 +125,8 @@ rebind <- function(sym, value, ns) {
 }
 
 address <- function(x) {
-  info <- utils::capture.output(.Internal(inspect(x, 0L)))
-  gsub("@([a-z0-9]+)\\s+.+", "\\1", info[[1]])
+  info <- utils::capture.output(.Internal(inspect(x, 0L, 0L)))
+  sub("@([a-z0-9]+)\\s+.+", "\\1", info[[1]])
 }
 
 globalenv_cache <- new.env(parent = emptyenv())

Original file line number	Diff line number	Diff line change
`@@ -125,8 +125,8 @@ rebind <- function(sym, value, ns) {`
`125`	`125`	`}`
`126`	`126`
`127`	`127`	`address <- function(x) {`
`128`		`- info <- utils::capture.output(.Internal(inspect(x, 0L)))`
`129`		`- gsub("@([a-z0-9]+)\\s+.+", "\\1", info[[1]])`
	`128`	`+ info <- utils::capture.output(.Internal(inspect(x, 0L, 0L)))`
	`129`	`+ sub("@([a-z0-9]+)\\s+.+", "\\1", info[[1]])`
`130`	`130`	`}`
`131`	`131`
`132`	`132`	`globalenv_cache <- new.env(parent = emptyenv())`