Test failures in the current version of OpenSDPsynthR

[jsonbecker]

==> devtools::test()

Loading OpenSDPsynthR
Loading required package: testthat
Loading required package: dplyr

Attaching package: ‘dplyr’

The following object is masked from ‘package:testthat’:

    matches

The following objects are masked from ‘package:stats’:

    filter, lag

The following objects are masked from ‘package:base’:

    intersect, setdiff, setequal, union

Loading required package: lme4
Loading required package: Matrix
Testing OpenSDPsynthR
Test age calculator: ................................
Test expand_grid_df: ...............
Test baseline extraction: .......
Test assigning baseline values: W..........................
Test conditional probability: .W.............
Test high level data generation functions: 12.
Test CEDS variable mapping: .................................
Test Markov Generator: ...............

Warnings -----------------------------------------------------------------------
1. Baseline returns the proper object type (@test-baseline.R#30) - joining character vector and factor, coercing into character vector

2. warnings but functioning (@test-baseline.R#129) - Probability list elements not found in data.
Missing levels: 
white,
other,
hawaiian_pi

Failed -------------------------------------------------------------------------
1. Error: gen_students produces students (@test-gen.R#7) -----------------------
unused argument (seed = 21421)
1: .handleSimpleError(function (e) 
   {
       e$call <- sys.calls()[(frame + 11):(sys.nframe() - 2)]
       register_expectation(e, frame + 11, sys.nframe() - 2)
       signalCondition(e)
   }, "unused argument (seed = 21421)", quote(gen_students(n = 10, seed = 21421))) at /Users/jason/code/OpenSDPsynthR/tests/testthat/test-gen.R:7
2: eval(code, test_env)

2. Error: gen_student_years longitudinal data (@test-gen.R#27) -----------------
unused argument (seed = 2352)
1: .handleSimpleError(function (e) 
   {
       e$call <- sys.calls()[(frame + 11):(sys.nframe() - 2)]
       register_expectation(e, frame + 11, sys.nframe() - 2)
       signalCondition(e)
   }, "unused argument (seed = 2352)", quote(gen_students(n = 100, seed = 2352))) at /Users/jason/code/OpenSDPsynthR/tests/testthat/test-gen.R:27
2: eval(code, test_env)

DONE ===========================================================================
Warning message:
In left_join_impl(x, y, by$x, by$y, suffix$x, suffix$y) :
  joining character vector and factor, coercing into character vector

I have a feeling at least some of these are related to #16, but the warnings may be related to having stringsAsFactors = FALSE in an .Rprofile or similar (which I do not do).