tbl_grade_class() calls anything with length > 1 a vector

[rossellhayes]

tbl_grade_class() should describe things as objects unless they are truly vectors of length > 1.

library(tblcheck)

.result <- 1
.solution <- lm(mpg ~ wt, data = mtcars)
tbl_grade_class()
#> <gradethis_graded: [Incorrect]
#>   Your result should be a vector with class `lm`, but it is a number
#>   (class `numeric`).
#> >

^{Created on 2022-08-09 by the reprex package (v2.0.1)}