Running ‘testthat.R’ [31s/35s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(convergEU)
  > library(tibble)
  > require(devtools)
  Loading required package: devtools
  Loading required package: usethis
  
  Attaching package: 'devtools'
  
  The following object is masked from 'package:testthat':
  
      test_file
  
  > 
  > # set testthat
  > testthat::test_check("convergEU")
  ── 1. Error: Ranking highBest (@test_country_ranking.R#27)  ────────────────────
  Assigned data `rank(unlist(ord_MS[auxMS, -posizTime]), ties.method = "min")` must be compatible with row subscript `auxMS`.
  ✖ 1 row must be assigned.
  ✖ Assigned data has 3 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
   1. convergEU::country_ranking(...)
   3. tibble:::`[<-.tbl_df`(...)
   4. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   5. tibble:::vectbl_recycle_rhs(...)
   6. base::tryCatch(...)
   7. base:::tryCatchList(expr, classes, parentenv, handlers)
   8. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   9. value[[3L]](cond)
  
  ── 2. Error: Ranking lowBest (@test_country_ranking.R#53)  ─────────────────────
  Assigned data `rank(unlist(ord_MS[auxMS, -posizTime]), ties.method = "min")` must be compatible with row subscript `auxMS`.
  ✖ 1 row must be assigned.
  ✖ Assigned data has 3 rows.
  ℹ Only vectors of size 1 are recycled.
  Backtrace:
   1. convergEU::country_ranking(...)
   3. tibble:::`[<-.tbl_df`(...)
   4. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   5. tibble:::vectbl_recycle_rhs(...)
   6. base::tryCatch(...)
   7. base:::tryCatchList(expr, classes, parentenv, handlers)
   8. base:::tryCatchOne(expr, names, parentenv, handlers[[1L]])
   9. value[[3L]](cond)
  
  ── 3. Error: Simplest test on results (@test_departure_mean.R#22)  ─────────────
  `i` must have one dimension, not 2.
  Backtrace:
    1. convergEU::departure_mean(...)
    3. tibble:::`[<-.tbl_df`(`*tmp*`, infEstra, aux, value = -1)
    4. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    5. tibble:::vectbl_as_new_row_index(i, x, i_arg)
    6. tibble:::vectbl_as_row_location(i, fast_nrow(x), i_arg, assign = TRUE)
   13. vctrs::vec_as_location(i, n, arg = as_label(i_arg))
  
  ── 4. Error: Change time name (@test_departure_mean.R#51)  ─────────────────────
  `i` must have one dimension, not 2.
  Backtrace:
    1. convergEU::departure_mean(...)
    3. tibble:::`[<-.tbl_df`(`*tmp*`, infEstra, aux, value = -1)
    4. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    5. tibble:::vectbl_as_new_row_index(i, x, i_arg)
    6. tibble:::vectbl_as_row_location(i, fast_nrow(x), i_arg, assign = TRUE)
   13. vctrs::vec_as_location(i, n, arg = as_label(i_arg))
  
  ── 5. Error: Test of eurofound dataset, scrambled, further statistics. (@test_de
  `i` must have one dimension, not 2.
  Backtrace:
    1. convergEU::departure_mean(oriTB = testTB, sigmaTB = mySC$res)
    3. tibble:::`[<-.tbl_df`(`*tmp*`, infEstra, aux, value = -1)
    4. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    5. tibble:::vectbl_as_new_row_index(i, x, i_arg)
    6. tibble:::vectbl_as_row_location(i, fast_nrow(x), i_arg, assign = TRUE)
   13. vctrs::vec_as_location(i, n, arg = as_label(i_arg))
  
  ── 6. Error: Basic exceptions (@test_gamma_conv_msteps.R#46)  ──────────────────
  `i` must have one dimension, not 2.
  Backtrace:
    1. convergEU::gamma_conv_msteps(...)
    3. tibble:::`[.tbl_df`(rawDat, estrattore, )
    4. tibble:::tbl_subset_row(xo, i = i, i_arg)
    5. tibble:::vectbl_as_row_index(i, x, i_arg)
    6. tibble:::vectbl_as_row_location(i, nr, i_arg, assign)
   13. vctrs::vec_as_location(i, n, arg = as_label(i_arg))
  
  ── 7. Error: Basic exceptions (@test_gamma_conv_msteps.R#81)  ──────────────────
  `i` must have one dimension, not 2.
  Backtrace:
    1. convergEU::gamma_conv_msteps(...)
    3. tibble:::`[.tbl_df`(rawDat, estrattore, )
    4. tibble:::tbl_subset_row(xo, i = i, i_arg)
    5. tibble:::vectbl_as_row_index(i, x, i_arg)
    6. tibble:::vectbl_as_row_location(i, nr, i_arg, assign)
   13. vctrs::vec_as_location(i, n, arg = as_label(i_arg))
  
  ── 8. Error: LowBest and highBest (@test_graph_departure.R#60)  ────────────────
  `i` must have one dimension, not 2.
  Backtrace:
    1. convergEU::departure_mean(oriTB = testTB, sigmaTB = mySTB$res)
    3. tibble:::`[<-.tbl_df`(`*tmp*`, infEstra, aux, value = -1)
    4. tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    5. tibble:::vectbl_as_new_row_index(i, x, i_arg)
    6. tibble:::vectbl_as_row_location(i, fast_nrow(x), i_arg, assign = TRUE)
   13. vctrs::vec_as_location(i, n, arg = as_label(i_arg))
  
  ── 9. Error: Simplest Imputation using option cut (@test_impute_dataset.R#52)  ─
  `i` must have one dimension, not 2.
  Backtrace:
    1. convergEU::impute_dataset(...)
    3. tibble:::`[.tbl_df`(sottoTB2, !is.na(sottoTB2[, aux]), )
    4. tibble:::tbl_subset_row(xo, i = i, i_arg)
    5. tibble:::vectbl_as_row_index(i, x, i_arg)
    6. tibble:::vectbl_as_row_location(i, nr, i_arg, assign)
   13. vctrs::vec_as_location(i, n, arg = as_label(i_arg))
  
  ── 10. Error: Imputation using option constant (@test_impute_dataset.R#69)  ────
  `i` must have one dimension, not 2.
  Backtrace:
    1. convergEU::impute_dataset(...)
    3. tibble:::`[.tbl_df`(sottoTB2, !is.na(sottoTB2[, aux]), )
    4. tibble:::tbl_subset_row(xo, i = i, i_arg)
    5. tibble:::vectbl_as_row_index(i, x, i_arg)
    6. tibble:::vectbl_as_row_location(i, nr, i_arg, assign)
   13. vctrs::vec_as_location(i, n, arg = as_label(i_arg))
  
  ── 11. Error: Imputation into a chunk of missing (@test_impute_dataset.R#91)  ──
  `i` must have one dimension, not 2.
  Backtrace:
    1. convergEU::impute_dataset(...)
    3. tibble:::`[.tbl_df`(sottoTB2, !is.na(sottoTB2[, aux]), )
    4. tibble:::tbl_subset_row(xo, i = i, i_arg)
    5. tibble:::vectbl_as_row_index(i, x, i_arg)
    6. tibble:::vectbl_as_row_location(i, nr, i_arg, assign)
   13. vctrs::vec_as_location(i, n, arg = as_label(i_arg))
  
  ── 12. Error: Imputation into a chunk with delta time  equal to 1 (@test_impute_
  `i` must have one dimension, not 2.
  Backtrace:
    1. convergEU::impute_dataset(...)
    3. tibble:::`[.tbl_df`(sottoTB2, !is.na(sottoTB2[, aux]), )
    4. tibble:::tbl_subset_row(xo, i = i, i_arg)
    5. tibble:::vectbl_as_row_index(i, x, i_arg)
    6. tibble:::vectbl_as_row_location(i, nr, i_arg, assign)
   13. vctrs::vec_as_location(i, n, arg = as_label(i_arg))
  
  ── 13. Error: Imputation into chunk  missing, timeName not standard (@test_imput
  `i` must have one dimension, not 2.
  Backtrace:
    1. convergEU::impute_dataset(...)
    3. tibble:::`[.tbl_df`(sottoTB2, !is.na(sottoTB2[, aux]), )
    4. tibble:::tbl_subset_row(xo, i = i, i_arg)
    5. tibble:::vectbl_as_row_index(i, x, i_arg)
    6. tibble:::vectbl_as_row_location(i, nr, i_arg, assign)
   13. vctrs::vec_as_location(i, n, arg = as_label(i_arg))
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  [ OK: 1755 | SKIPPED: 0 | WARNINGS: 0 | FAILED: 13 ]
  1. Error: Ranking highBest (@test_country_ranking.R#27) 
  2. Error: Ranking lowBest (@test_country_ranking.R#53) 
  3. Error: Simplest test on results (@test_departure_mean.R#22) 
  4. Error: Change time name (@test_departure_mean.R#51) 
  5. Error: Test of eurofound dataset, scrambled, further statistics. (@test_departure_mean.R#68) 
  6. Error: Basic exceptions (@test_gamma_conv_msteps.R#46) 
  7. Error: Basic exceptions (@test_gamma_conv_msteps.R#81) 
  8. Error: LowBest and highBest (@test_graph_departure.R#60) 
  9. Error: Simplest Imputation using option cut (@test_impute_dataset.R#52) 
  1. ...
  
  Error: testthat unit tests failed
  Execution halted