try setattr

MichaelChirico · web-flow · commit 8fd7789e8b71 · 2025-06-26T12:05:56.000-07:00
diff --git a/tests/autoprint.R b/tests/autoprint.R
@@ -58,7 +58,7 @@ local({
 
 # child class of data.table doesn't induce unintended print, #3029
 dt = data.table(x = 1)
-class(dt) = c("foo", "data.table", "data.frame")
+setattr(dt, "class", c("foo", "data.table", "data.frame"))
 print.foo = function(x, ...) {
   NextMethod("print")
 }

Original file line number	Diff line number	Diff line change
`@@ -58,7 +58,7 @@ local({`
`58`	`58`
`59`	`59`	`# child class of data.table doesn't induce unintended print, #3029`
`60`	`60`	`dt = data.table(x = 1)`
`61`		`-class(dt) = c("foo", "data.table", "data.frame")`
	`61`	`+setattr(dt, "class", c("foo", "data.table", "data.frame"))`
`62`	`62`	`print.foo = function(x, ...) {`
`63`	`63`	`NextMethod("print")`
`64`	`64`	`}`