use all.names = TRUE in as.list.environment

m7pr · m7pr · commit 6c5d5ab39ee3 · 2024-11-08T15:21:31.000+01:00
diff --git a/R/qenv-extract.R b/R/qenv-extract.R
@@ -42,7 +42,7 @@
     )
   }
 
-  x@.xData <- list2env(as.list(x)[names])
+  x@.xData <- list2env(as.list(x, all.names = TRUE)[names])
   names <- gsub("^`(.*)`$", "\\1", names)
   x@code <- get_code_dependency(x@code, names = names, ...)
 

Original file line number	Diff line number	Diff line change
`@@ -42,7 +42,7 @@`
`42`	`42`	`)`
`43`	`43`	`}`
`44`	`44`
`45`		`- x@.xData <- list2env(as.list(x)[names])`
	`45`	`+ x@.xData <- list2env(as.list(x, all.names = TRUE)[names])`
`46`	`46`	names <- gsub("^`(.*)`$", "\\1", names)
`47`	`47`	`x@code <- get_code_dependency(x@code, names = names, ...)`
`48`	`48`