# will produce lints
lint(
text = 'expect_equal(class(x), "data.frame")',
linters = expect_s3_class_linter()
)
lint(
text = 'expect_equal(class(x), "numeric")',
linters = expect_s3_class_linter()
)
# okay
lint(
text = 'expect_s3_class(x, "data.frame")',
linters = expect_s3_class_linter()
)
lint(
text = 'expect_type(x, "double")',
linters = expect_s3_class_linter()
)
Run the code above in your browser using DataLab