Running ‘testthat_tests.R’ [119s/144s]
Running the tests in ‘tests/testthat_tests.R’ failed.
Complete output:
  > library(testthat)
  > library(EdSurvey)
  Loading required package: car
  Loading required package: carData
  Loading required package: lfactors
  lfactors v1.0.4
  
  Loading required package: Dire
  Dire v2.1.1
  
  EdSurvey v4.0.1
  
  
  Attaching package: 'EdSurvey'
  
  The following objects are masked from 'package:base':
  
      cbind, rbind
  
  > forceCacheUpdate <- FALSE
  > test_check("EdSurvey")
  [ FAIL 6 | WARN 0 | SKIP 49 | PASS 114 ]
  
  ══ Skipped tests (49) ══════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════
  • On CRAN (49): 'test-07-merge.R:1:1', 'test-10-main.R:14:3', 'test-10-main.R:54:3', 'test-10-main.R:121:3', 'test-10-main.R:265:3', 'test-10-main.R:316:3', 'test-10-main.R:412:3', 'test-10-main.R:438:3', 'test-10-main.R:487:3', 'test-10-main.R:502:3', 'test-10-main.R:511:3', 'test-10-main.R:526:3', 'test-10-main.R:542:3', 'test-10-main.R:583:3', 'test-10-main.R:594:3', 'test-10-main.R:606:3', 'test-10-main.R:626:3', 'test-10-main.R:659:3', 'test-10-main.R:715:3', 'test-10-main.R:748:3',
    'test-10-main.R:770:3', 'test-10-main.R:789:3', 'test-10-main.R:797:3', 'test-10-main.R:839:3', 'test-10-main.R:850:3', 'test-10-main.R:865:3', 'test-10-main.R:950:3', 'test-10-main.R:1021:3', 'test-10-main.R:1037:3', 'test-10-main.R:1068:3', 'test-10-main.R:1084:3', 'test-10-main.R:1109:3', 'test-10-main.R:1118:3', 'test-10-main.R:1179:3', 'test-15-lesdf.R:38:1', 'test-20-esdfl.R:60:3', 'test-20-esdfl.R:76:1', 'test-22-mvrlm.R:1:1', 'test-25-mixed.R:1:1', 'test-30-TIMSS.R:1:1',
    'test-35-piaac.R:1:1', 'test-40-ELS.R:1:1', 'test-45-HSLS.R:1:1', 'test-50-pisa.R:1:1', 'test-51-YAFS.R:1:1', 'test-60-ECLS_K.R:1:1', 'test-65-SSOCS.R:1:1', 'test-70-NHES.R:1:1', 'test-75-iccs.R:1:1'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════════
  ── Error ('test-05-mergev.R:209:3'): mergev can merge ──────────────────────────
  Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'nrow': Column 1 ['key'] of item 2 is missing in item 1. Use fill=TRUE to fill with NA (NULL for list columns), or use.names=FALSE to ignore column names.
  Backtrace:
       ▆
    1. ├─EdSurvey:::mergev(dfa, dfb, by = "key", all = TRUE, verbose = FALSE) at test-05-mergev.R:209:2
    2. │ ├─base::nrow(unique(rbind(ux, uy)))
    3. │ ├─base::unique(rbind(ux, uy))
    4. │ └─EdSurvey::rbind(ux, uy)
    5. │   ├─EdSurvey (local) standardGeneric("rbind")
    6. │   │ └─base::eval(mc, env)
    7. │   │   └─base::eval(mc, env)
    8. │   └─EdSurvey::rbind(...)
    9. │     ├─base::do.call(base::rbind, c(args, list(deparse.level = deparse.level)))
   10. │     └─base (local) `<fn>`(`<dt[,1]>`, `<dt[,1]>`, deparse.level = 1)
   11. │       └─data.table (local) rbind(deparse.level, ...)
   12. │         └─data.table::rbindlist(l, use.names, fill, idcol)
   13. └─base::.handleSimpleError(...)
   14.   └─base (local) h(simpleError(msg, call))
  ── Error ('test-05-mergev.R:242:7'): mergev agrees with merge ──────────────────
  Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'nrow': Column 1 ['key'] of item 2 is missing in item 1. Use fill=TRUE to fill with NA (NULL for list columns), or use.names=FALSE to ignore column names.
  Backtrace:
       ▆
    1. ├─base::suppressWarnings(...) at test-05-mergev.R:242:6
    2. │ └─base::withCallingHandlers(...)
    3. ├─EdSurvey:::mergev(df1, df2, by = thisby, all = TRUE, verbose = FALSE)
    4. │ ├─base::nrow(unique(rbind(ux, uy)))
    5. │ ├─base::unique(rbind(ux, uy))
    6. │ └─EdSurvey::rbind(ux, uy)
    7. │   ├─EdSurvey (local) standardGeneric("rbind")
    8. │   │ └─base::eval(mc, env)
    9. │   │   └─base::eval(mc, env)
   10. │   └─EdSurvey::rbind(...)
   11. │     ├─base::do.call(base::rbind, c(args, list(deparse.level = deparse.level)))
   12. │     └─base (local) `<fn>`(`<dt[,1]>`, `<dt[,1]>`, deparse.level = 1)
   13. │       └─data.table (local) rbind(deparse.level, ...)
   14. │         └─data.table::rbindlist(l, use.names, fill, idcol)
   15. └─base::.handleSimpleError(...)
   16.   └─base (local) h(simpleError(msg, call))
  ── Error ('test-05-mergev.R:278:3'): merge stats correct ───────────────────────
  Error in `h(simpleError(msg, call))`: error in evaluating the argument 'x' in selecting a method for function 'nrow': Column 1 ['key'] of item 2 is missing in item 1. Use fill=TRUE to fill with NA (NULL for list columns), or use.names=FALSE to ignore column names.
  Backtrace:
       ▆
    1. ├─utils::capture.output(mgv <- mergev(dfa, dfb, by = "key", all = TRUE)) at test-05-mergev.R:278:2
    2. │ └─base::withVisible(...elt(i))
    3. ├─EdSurvey:::mergev(dfa, dfb, by = "key", all = TRUE)
    4. │ ├─base::nrow(unique(rbind(ux, uy)))
    5. │ ├─base::unique(rbind(ux, uy))
    6. │ └─EdSurvey::rbind(ux, uy)
    7. │   ├─EdSurvey (local) standardGeneric("rbind")
    8. │   │ └─base::eval(mc, env)
    9. │   │   └─base::eval(mc, env)
   10. │   └─EdSurvey::rbind(...)
   11. │     ├─base::do.call(base::rbind, c(args, list(deparse.level = deparse.level)))
   12. │     └─base (local) `<fn>`(`<dt[,1]>`, `<dt[,1]>`, deparse.level = 1)
   13. │       └─data.table (local) rbind(deparse.level, ...)
   14. │         └─data.table::rbindlist(l, use.names, fill, idcol)
   15. └─base::.handleSimpleError(...)
   16.   └─base (local) h(simpleError(msg, call))
  ── Failure ('test-10-main.R:313:1'): (code run outside of `test_that()`) ───────
  `slm1` not equal to `slm1_read`.
  Component "varSummary": Component 1: Component 2: target, current do not match when deparsed
  Component "varSummary": Component 2: Component 2: target, current do not match when deparsed
  Component "varSummary": Component 3: Component 2: target, current do not match when deparsed
  ── Failure ('test-10-main.R:398:1'): (code run outside of `test_that()`) ───────
  `lm1t` has changed from known value recorded in 'lm1t.rds'.
  Component "varSummary": Component 1: Component 2: target, current do not match when deparsed
  Component "varSummary": Component 2: Component 2: target, current do not match when deparsed
  Component "varSummary": Component 3: Component 2: target, current do not match when deparsed
  ── Failure ('test-10-main.R:409:1'): (code run outside of `test_that()`) ───────
  `lm1jk` not equal to `lm1jk.ref`.
  Component "varSummary": Component 1: Component 2: target, current do not match when deparsed
  Component "varSummary": Component 2: Component 2: target, current do not match when deparsed
  Component "varSummary": Component 3: Component 2: target, current do not match when deparsed
  
  [ FAIL 6 | WARN 0 | SKIP 49 | PASS 114 ]
  Error: Test failures
  Execution halted