Running 'testthat.R' [9s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(reghelper)
  
  Attaching package: 'reghelper'
  
  The following object is masked from 'package:base':
  
      beta
  
  > 
  > test_check("reghelper")
  -- 1. Error: lm with no predictors works (@test_build_model.R#24)  -------------
  replacement has 1 row, data has 0
  1: summary(b_model) at testthat/test_build_model.R:24
  2: summary.block_lm(b_model)
  3: `[<-`(`*tmp*`, m, , value = NA)
  4: `[<-.data.frame`(`*tmp*`, m, , value = NA)
  5: xpdrows.data.frame(x, rows, new.rows)
  6: `[[<-`(`*tmp*`, i, value = NA_real_)
  7: `[[<-.data.frame`(`*tmp*`, i, value = NA_real_)
  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: 2 block lm, no interaction, works (@test_build_model.R#55)  -------
  replacement has 1 row, data has 0
  1: summary(b_model) at testthat/test_build_model.R:55
  2: summary.block_lm(b_model)
  3: `[<-`(`*tmp*`, m, , value = c(0.360136664181203, 0.353607446468766, value = 55.1577049567856, 
     numdf = 1, dendf = 98, value = 4.14813460890633e-11, NA, NA, NA))
  4: `[<-.data.frame`(`*tmp*`, m, , value = c(0.360136664181203, 0.353607446468766, value = 55.1577049567856, 
     numdf = 1, dendf = 98, value = 4.14813460890633e-11, NA, NA, NA))
  5: xpdrows.data.frame(x, rows, new.rows)
  6: `[[<-`(`*tmp*`, i, value = NA_real_)
  7: `[[<-.data.frame`(`*tmp*`, i, value = NA_real_)
  8: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, nrows), domain = NA)
  
  -- 3. Error: 2 block lm, with interaction, works (@test_build_model.R#94)  -----
  replacement has 1 row, data has 0
  1: summary(b_model) at testthat/test_build_model.R:94
  2: summary.block_lm(b_model)
  3: `[<-`(`*tmp*`, m, , value = c(0.0387471006888888, 0.0189274532804123, value = 1.95498435922313, 
     numdf = 2, dendf = 97, value = 0.147104731609582, NA, NA, NA))
  4: `[<-.data.frame`(`*tmp*`, m, , value = c(0.0387471006888888, 0.0189274532804123, 
     value = 1.95498435922313, numdf = 2, dendf = 97, value = 0.147104731609582, NA, NA, 
     NA))
  5: xpdrows.data.frame(x, rows, new.rows)
  6: `[[<-`(`*tmp*`, i, value = NA_real_)
  7: `[[<-.data.frame`(`*tmp*`, i, value = NA_real_)
  8: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, nrows), domain = NA)
  
  -- 4. Error: 3 block lm, with interaction, works (@test_build_model.R#141)  ----
  replacement has 1 row, data has 0
  1: summary(b_model) at testthat/test_build_model.R:141
  2: summary.block_lm(b_model)
  3: `[<-`(`*tmp*`, m, , value = c(0.131271091551629, 0.104123313162617, value = 4.83542666624841, 
     numdf = 3, dendf = 96, value = 0.00353840429640607, NA, NA, NA))
  4: `[<-.data.frame`(`*tmp*`, m, , value = c(0.131271091551629, 0.104123313162617, value = 4.83542666624841, 
     numdf = 3, dendf = 96, value = 0.00353840429640607, NA, NA, NA))
  5: xpdrows.data.frame(x, rows, new.rows)
  6: `[[<-`(`*tmp*`, i, value = NA_real_)
  7: `[[<-.data.frame`(`*tmp*`, i, value = NA_real_)
  8: stop(sprintf(ngettext(N, "replacement has %d row, data has %d", "replacement has %d rows, data has %d"), 
         N, nrows), domain = NA)
  
  -- 5. Error: opts parameter passes along arguments (@test_build_model.R#200)  --
  replacement has 1 row, data has 0
  1: summary(b_model1) at testthat/test_build_model.R:200
  2: summary.block_lm(b_model1)
  3: `[<-`(`*tmp*`, m, , value = c(0.360136664181203, 0.353607446468766, value = 55.1577049567856, 
     numdf = 1, dendf = 98, value = 4.14813460890633e-11, NA, NA, NA))
  4: `[<-.data.frame`(`*tmp*`, m, , value = c(0.360136664181203, 0.353607446468766, value = 55.1577049567856, 
     numdf = 1, dendf = 98, value = 4.14813460890633e-11, NA, NA, NA))
  5: xpdrows.data.frame(x, rows, new.rows)
  6: `[[<-`(`*tmp*`, i, value = NA_real_)
  7: `[[<-.data.frame`(`*tmp*`, i, value = NA_real_)
  8: 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: 259 SKIPPED: 0 FAILED: 5
  1. Error: lm with no predictors works (@test_build_model.R#24) 
  2. Error: 2 block lm, no interaction, works (@test_build_model.R#55) 
  3. Error: 2 block lm, with interaction, works (@test_build_model.R#94) 
  4. Error: 3 block lm, with interaction, works (@test_build_model.R#141) 
  5. Error: opts parameter passes along arguments (@test_build_model.R#200) 
  
  Error: testthat unit tests failed
  Execution halted