Running ‘testthat.R’
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(OptiQuantR)
  > 
  > test_check("OptiQuantR")
  1. Error: output has 17 columns (@test_tableproperties.R#27) -------------------
  replacement has 11 rows, data has 1633
  1: expect_equal(ncol(readoqcsv(system.file("extdata", "testdata.csv", package = "OptiQuantR"))), 
         17) at testthat/test_tableproperties.R:27
  2: compare(object, expected, ...)
  3: ncol(readoqcsv(system.file("extdata", "testdata.csv", package = "OptiQuantR")))
  4: readoqcsv(system.file("extdata", "testdata.csv", package = "OptiQuantR"))
  5: `$<-`(`*tmp*`, "id", value = 1:11)
  6: `$<-.data.table`(`*tmp*`, "id", value = 1:11)
  7: `$<-.data.frame`(x, name, value)
  8: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, nrows), domain = NA)
  
  2. Error: output has the right column names (@test_tableproperties.R#31) -------
  replacement has 11 rows, data has 1633
  1: expect_equal(colnames(readoqcsv(system.file("extdata", "testdata.csv", package = "OptiQuantR"))), 
         names) at testthat/test_tableproperties.R:31
  2: compare(object, expected, ...)
  3: colnames(readoqcsv(system.file("extdata", "testdata.csv", package = "OptiQuantR")))
  4: is.data.frame(x)
  5: readoqcsv(system.file("extdata", "testdata.csv", package = "OptiQuantR"))
  6: `$<-`(`*tmp*`, "id", value = 1:11)
  7: `$<-.data.table`(`*tmp*`, "id", value = 1:11)
  8: `$<-.data.frame`(x, name, value)
  9: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, nrows), domain = NA)
  
  3. Error: output is of class data.frame & data.table (@test_tableproperties.R#36) 
  replacement has 11 rows, data has 1633
  1: expect_true(is.data.frame(readoqcsv(system.file("extdata", "testdata.csv", package = "OptiQuantR")))) at testthat/test_tableproperties.R:36
  2: expect(identical(as.vector(object), TRUE), sprintf("%s isn't true.", lab), info = info)
  3: as.expectation(exp, ..., srcref = srcref)
  4: identical(as.vector(object), TRUE)
  5: as.vector(object)
  6: is.data.frame(readoqcsv(system.file("extdata", "testdata.csv", package = "OptiQuantR")))
  7: readoqcsv(system.file("extdata", "testdata.csv", package = "OptiQuantR"))
  8: `$<-`(`*tmp*`, "id", value = 1:11)
  9: `$<-.data.table`(`*tmp*`, "id", value = 1:11)
  10: `$<-.data.frame`(x, name, value)
  11: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, nrows), domain = NA)
  
  testthat results ================================================================
  OK: 0 SKIPPED: 0 FAILED: 3
  1. Error: output has 17 columns (@test_tableproperties.R#27) 
  2. Error: output has the right column names (@test_tableproperties.R#31) 
  3. Error: output is of class data.frame & data.table (@test_tableproperties.R#36) 
  
  Error: testthat unit tests failed
  Execution halted