Running ‘testthat.R’ [5s/7s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(xspliner)
  
  Attaching package: 'xspliner'
  
  The following object is masked from 'package:graphics':
  
      xspline
  
  > 
  > test_check("xspliner")
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test-model.R:7:3): xspline return object with correct attributes and values ──
  Error in `list_to_dataframe(res, attr(.data, "split_labels"), .id, id_as_factor)`: nrow(labels) == length(null) is not TRUE
  Backtrace:
       █
    1. ├─xspliner::xspline(formula, blackbox, data) test-model.R:7:2
    2. ├─xspliner:::xspline.formula(formula, blackbox, data)
    3. │ └─xspliner:::local_build_xspliner(...)
    4. │   └─xspliner:::build_xspliner(object, model, data, env = env, ...)
    5. │     └─xspliner:::transformed_formula_object(...)
    6. │       └─xspliner:::get_transitions_outcome(...)
    7. │         └─`%>%`(...)
    8. ├─purrr::set_names(., quantitative_variables)
    9. └─purrr::map(...)
   10.   └─xspliner:::.f(.x[[i]], ...)
   11.     └─xspliner:::get_quantitative_transition(...)
   12.       └─xspliner:::prepare_transition_params_pdp(...)
   13.         ├─base::do.call(pdp::partial, effect)
   14.         ├─(function (object, ...) ...
   15.         └─pdp:::partial.default(...)
   16.           └─pdp:::getParDepReg(...)
   17.             └─plyr::adply(...)
   18.               └─plyr::ldply(...)
   19.                 └─plyr:::list_to_dataframe(...)
   20.                   └─base::stopifnot(nrow(labels) == length(null))
  ── Error (test-model.R:21:3): xspline correctly predicts values ────────────────
  Error in `list_to_dataframe(res, attr(.data, "split_labels"), .id, id_as_factor)`: nrow(labels) == length(null) is not TRUE
  Backtrace:
       █
    1. ├─xspliner::xspline(formula, blackbox, data) test-model.R:21:2
    2. ├─xspliner:::xspline.formula(formula, blackbox, data)
    3. │ └─xspliner:::local_build_xspliner(...)
    4. │   └─xspliner:::build_xspliner(object, model, data, env = env, ...)
    5. │     └─xspliner:::transformed_formula_object(...)
    6. │       └─xspliner:::get_transitions_outcome(...)
    7. │         └─`%>%`(...)
    8. ├─purrr::set_names(., quantitative_variables)
    9. └─purrr::map(...)
   10.   └─xspliner:::.f(.x[[i]], ...)
   11.     └─xspliner:::get_quantitative_transition(...)
   12.       └─xspliner:::prepare_transition_params_pdp(...)
   13.         ├─base::do.call(pdp::partial, effect)
   14.         ├─(function (object, ...) ...
   15.         └─pdp:::partial.default(...)
   16.           └─pdp:::getParDepReg(...)
   17.             └─plyr::adply(...)
   18.               └─plyr::ldply(...)
   19.                 └─plyr:::list_to_dataframe(...)
   20.                   └─base::stopifnot(nrow(labels) == length(null))
  ── Error (test-utils-approximations.R:88:3): prepare_transition_params_pdp correctly gets pdp response and its approximation ──
  Error in `list_to_dataframe(res, attr(.data, "split_labels"), .id, id_as_factor)`: nrow(labels) == length(null) is not TRUE
  Backtrace:
      █
   1. └─xspliner:::prepare_transition_params_pdp(...) test-utils-approximations.R:88:2
   2.   ├─base::do.call(pdp::partial, effect)
   3.   ├─(function (object, ...) ...
   4.   └─pdp:::partial.default(...)
   5.     └─pdp:::getParDepReg(...)
   6.       └─plyr::adply(...)
   7.         └─plyr::ldply(...)
   8.           └─plyr:::list_to_dataframe(...)
   9.             └─base::stopifnot(nrow(labels) == length(null))
  ── Error (test-utils-approximations.R:126:3): get_quantitative_transition correctly gets response and its approximation ──
  Error in `list_to_dataframe(res, attr(.data, "split_labels"), .id, id_as_factor)`: nrow(labels) == length(null) is not TRUE
  Backtrace:
       █
    1. └─xspliner:::get_quantitative_transition(...) test-utils-approximations.R:126:2
    2.   └─xspliner:::prepare_transition_params_pdp(...)
    3.     ├─base::do.call(pdp::partial, effect)
    4.     ├─(function (object, ...) ...
    5.     └─pdp:::partial.default(...)
    6.       └─pdp:::getParDepReg(...)
    7.         └─plyr::adply(...)
    8.           └─plyr::ldply(...)
    9.             └─plyr:::list_to_dataframe(...)
   10.               └─base::stopifnot(nrow(labels) == length(null))
  ── Error (test-utils-approximations.R:149:3): get_transitions_outcome correctly gets response and its approximation for all special calls ──
  Error in `list_to_dataframe(res, attr(.data, "split_labels"), .id, id_as_factor)`: nrow(labels) == length(null) is not TRUE
  Backtrace:
       █
    1. ├─xspliner:::get_transitions_outcome(...) test-utils-approximations.R:149:2
    2. │ └─`%>%`(...)
    3. ├─purrr::set_names(., quantitative_variables)
    4. └─purrr::map(...)
    5.   └─xspliner:::.f(.x[[i]], ...)
    6.     └─xspliner:::get_quantitative_transition(...)
    7.       └─xspliner:::prepare_transition_params_pdp(...)
    8.         ├─base::do.call(pdp::partial, effect)
    9.         ├─(function (object, ...) ...
   10.         └─pdp:::partial.default(...)
   11.           └─pdp:::getParDepReg(...)
   12.             └─plyr::adply(...)
   13.               └─plyr::ldply(...)
   14.                 └─plyr:::list_to_dataframe(...)
   15.                   └─base::stopifnot(nrow(labels) == length(null))
  ── Error (test-utils-formula-build.R:225:3): transformed_formula_object returns correct formula form and environment ──
  Error in `list_to_dataframe(res, attr(.data, "split_labels"), .id, id_as_factor)`: nrow(labels) == length(null) is not TRUE
  Backtrace:
       █
    1. ├─xspliner:::transformed_formula_object(...) test-utils-formula-build.R:225:2
    2. │ └─xspliner:::get_transitions_outcome(...)
    3. │   └─`%>%`(...)
    4. ├─purrr::set_names(., quantitative_variables)
    5. └─purrr::map(...)
    6.   └─xspliner:::.f(.x[[i]], ...)
    7.     └─xspliner:::get_quantitative_transition(...)
    8.       └─xspliner:::prepare_transition_params_pdp(...)
    9.         ├─base::do.call(pdp::partial, effect)
   10.         ├─(function (object, ...) ...
   11.         └─pdp:::partial.default(...)
   12.           └─pdp:::getParDepReg(...)
   13.             └─plyr::adply(...)
   14.               └─plyr::ldply(...)
   15.                 └─plyr:::list_to_dataframe(...)
   16.                   └─base::stopifnot(nrow(labels) == length(null))
  
  [ FAIL 6 | WARN 6 | SKIP 0 | PASS 60 ]
  Error: Test failures
  Execution halted