Should S7 data return S3 objects?

[hadley]

e.g.

library(S7)

mydf <- new_class("mydf", class_data.frame)
S7_data(mydf(data.frame(x = 1, y = 2)))
#> $x
#> [1] 1
#> 
#> $y
#> [1] 2
#> 
#> attr(,"row.names")
#> [1] 1

^{Created on 2023-11-22 with reprex v2.0.2.9000}

Shouldn't that return a data frame?