Require usage of expect_s4_class(x, k) over expect_true(is(x, k))

Source: R/linters_factory.R

expect_s4_class_linter