Use attr instead of @

hadley · hadley · commit 55d9bfc09da7 · 2024-11-06T09:29:50.000-06:00
diff --git a/R/expect-inheritance.R b/R/expect-inheritance.R
@@ -113,7 +113,7 @@ expect_s7_class <- function(object, class) {
         "%s inherits from %s not <%s>.",
         act$lab,
         paste0("<", setdiff(base::class(object), "S7_object"), ">", collapse = "/"),
-        class@name
+        attr(class, "name")
       )
     )
   }

Original file line number	Diff line number	Diff line change
`@@ -113,7 +113,7 @@ expect_s7_class <- function(object, class) {`
`113`	`113`	`"%s inherits from %s not <%s>.",`
`114`	`114`	`act$lab,`
`115`	`115`	`paste0("<", setdiff(base::class(object), "S7_object"), ">", collapse = "/"),`
`116`		`- class@name`
	`116`	`+ attr(class, "name")`
`117`	`117`	`)`
`118`	`118`	`)`
`119`	`119`	`}`