From 8fd7789e8b71d7c0e2b50f99e643fa383c330bec Mon Sep 17 00:00:00 2001 From: Michael Chirico Date: Thu, 26 Jun 2025 12:05:56 -0700 Subject: [PATCH 1/2] try setattr --- tests/autoprint.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/autoprint.R b/tests/autoprint.R index 5bf5c3b11d..f13c72f75b 100644 --- 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") } From 7425fb46875de6bd0b1760aa97b39ca87c067a5d Mon Sep 17 00:00:00 2001 From: Michael Chirico Date: Thu, 26 Jun 2025 12:06:50 -0700 Subject: [PATCH 2/2] Update autoprint.Rout.save --- tests/autoprint.Rout.save | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/autoprint.Rout.save b/tests/autoprint.Rout.save index c740666247..25d4d936f2 100644 --- a/tests/autoprint.Rout.save +++ b/tests/autoprint.Rout.save @@ -172,7 +172,7 @@ NULL > > # 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") + }