make vec_restore(<AsIs>) apply AsIs to the restored object, not its proxy

mjskay · mjskay · commit c5db55cd32e2 · 2023-12-21T00:17:10.000-06:00
diff --git a/R/type-asis.R b/R/type-asis.R
@@ -35,7 +35,7 @@ vec_proxy.AsIs <- function(x, ...) {
 
 #' @export
 vec_restore.AsIs <- function(x, to, ...) {
-  asis_restore(x)
+  asis_restore(NextMethod())
 }
 
 #' @export

Original file line number	Diff line number	Diff line change
`@@ -35,7 +35,7 @@ vec_proxy.AsIs <- function(x, ...) {`
`35`	`35`
`36`	`36`	`#' @export`
`37`	`37`	`vec_restore.AsIs <- function(x, to, ...) {`
`38`		`- asis_restore(x)`
	`38`	`+ asis_restore(NextMethod())`
`39`	`39`	`}`
`40`	`40`
`41`	`41`	`#' @export`