Update R/expect-inheritance.R

hadley · t-kalinowski · web-flow · commit b3ea5c2e58d5 · 2024-11-06T10:01:40.000-06:00
Co-authored-by: Tomasz Kalinowski &lt;kalinowskit@gmail.com&gt;
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 = "/"),
-        attr(class, "name")
+        attr(class, "name", TRUE)
       )
     )
   }

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`		`- attr(class, "name")`
	`116`	`+ attr(class, "name", TRUE)`
`117`	`117`	`)`
`118`	`118`	`)`
`119`	`119`	`}`