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") } 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") + }