Copy vec_proxy to avoid in-place modification.

khusmann · khusmann · commit ef7cd3e88deb · 2024-09-04T20:02:33.000-07:00
See r-lib/vctrs#1950
diff --git a/R/interlaced.R b/R/interlaced.R
@@ -398,9 +398,11 @@ format.interlacer_interlaced_pillar <- function(x, width, ...) {
 
 #' @export
 vec_proxy.interlacer_interlaced <- function(x, ...) {
-  data_frame(
-    v = value_channel(x),
-    m = na_channel(x),
+  duplicate(
+    data_frame(
+      v = value_channel(x),
+      m = na_channel(x),
+    )
   )
 }
 

Original file line number	Diff line number	Diff line change
`@@ -398,9 +398,11 @@ format.interlacer_interlaced_pillar <- function(x, width, ...) {`
`398`	`398`
`399`	`399`	`#' @export`
`400`	`400`	`vec_proxy.interlacer_interlaced <- function(x, ...) {`
`401`		`- data_frame(`
`402`		`- v = value_channel(x),`
`403`		`- m = na_channel(x),`
	`401`	`+ duplicate(`
	`402`	`+ data_frame(`
	`403`	`+ v = value_channel(x),`
	`404`	`+ m = na_channel(x),`
	`405`	`+ )`
`404`	`406`	`)`
`405`	`407`	`}`
`406`	`408`