Uninformant error message: expect_true(data.table::data.table(1))

[JamesThompsonC]

he following produces an uninformative error:

expect_false(data.table::data.table(1))
expect_true(data.table::data.table(1))

Error in if (is.na(x)) "" else gsub(\n *, paste0("\n", with), paste0(with, :
the condition has length > 1

yet data.frame() is ok.

expect_false(data.frame(1))
expect_true(data.frame(1))

The error appears after all tests are run, so no indication of where and what caused the error.

Thank you for you the package.
~Jim

[JamesThompsonC]

Submitted a merge request with the fix.