Running ‘testthat.R’ [18s/50s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(sjmisc)
  May the fourth be with you!
  > 
  > test_check("sjmisc")
  Saving _problems/test-countna-16.R
  Saving _problems/test-countna-23.R
  Saving _problems/test-frq-weights-16.R
  Saving _problems/test-frq-9.R
  Saving _problems/test-frq-13.R
  Saving _problems/test-frq-17.R
  Saving _problems/test-frq-21.R
  Saving _problems/test-frq-25.R
  Saving _problems/test-frq-29.R
  Saving _problems/test-frq-33.R
  Saving _problems/test-frq-37.R
  Saving _problems/test-frq-62.R
  Saving _problems/test-frq-78.R
  Saving _problems/test-frq-146.R
  
   iter imp variable
    1   1  Species
    1   2  Species
    1   3  Species
    1   4  Species
    1   5  Species
    2   1  Species
    2   2  Species
    2   3  Species
    2   4  Species
    2   5  Species
    3   1  Species
    3   2  Species
    3   3  Species
    3   4  Species
    3   5  Species
    4   1  Species
    4   2  Species
    4   3  Species
    4   4  Species
    4   5  Species
    5   1  Species
    5   2  Species
    5   3  Species
    5   4  Species
    5   5  Species
  One or more of the old values are recoded into identical new values.
  Please check if you correctly specified the recode-pattern,
  else separate multiple values with comma, e.g. rec="a,b,c=1; d,e,f=2".
  [ FAIL 14 | WARN 1 | SKIP 8 | PASS 136 ]
  
  ══ Skipped tests (8) ═══════════════════════════════════════════════════════════
  • On CRAN (3): 'test-isempty.R:6:3', 'test-move_columns.R:7:3',
    'test-rec.R:30:5'
  • empty test (5): 'test-demean.R:7:3', 'test-frq-weights.R:8:1',
    'test-frq.R:44:1', 'test-merge_imputations.R:6:3', 'test-std.R:31:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-countna.R:16:5'): count_na, general ────────────────────────────
  Error in `as.data.frame.integer(x[[i]], optional = TRUE)`: row names contain missing values
  Backtrace:
       ▆
    1. ├─sjmisc::count_na(dat) at test-countna.R:16:5
    2. │ └─sjmisc:::count_na_helper(.dat[[i]], cn = i)
    3. │   ├─... %>% dplyr::filter(.data$label != "NA")
    4. │   └─sjmisc:::frq_helper(...)
    5. │     └─base::data.frame(table(x, useNA = "always"))
    6. │       ├─base::as.data.frame(x[[i]], optional = TRUE)
    7. │       └─base::as.data.frame.table(x[[i]], optional = TRUE)
    8. │         ├─base::eval(ex)
    9. │         │ └─base::eval(ex)
   10. │         └─base::data.frame(...)
   11. │           ├─base::as.data.frame(x[[i]], optional = TRUE)
   12. │           └─base::as.data.frame.integer(x[[i]], optional = TRUE)
   13. ├─dplyr::filter(., .data$label != "NA")
   14. ├─dplyr::select(., -.data$val)
   15. └─dplyr::mutate(., label = .data$val)
  ── Error ('test-countna.R:23:5'): count_na, labels ─────────────────────────────
  Error in `as.data.frame.integer(x[[i]], optional = TRUE)`: row names contain missing values
  Backtrace:
       ▆
    1. ├─sjmisc::count_na(x) at test-countna.R:23:5
    2. │ └─sjmisc:::count_na_helper(.dat, cn = names(.dat))
    3. │   ├─... %>% dplyr::filter(.data$label != "NA")
    4. │   └─sjmisc:::frq_helper(...)
    5. │     └─base::data.frame(table(x, useNA = "always"))
    6. │       ├─base::as.data.frame(x[[i]], optional = TRUE)
    7. │       └─base::as.data.frame.table(x[[i]], optional = TRUE)
    8. │         ├─base::eval(ex)
    9. │         │ └─base::eval(ex)
   10. │         └─base::data.frame(...)
   11. │           ├─base::as.data.frame(x[[i]], optional = TRUE)
   12. │           └─base::as.data.frame.integer(x[[i]], optional = TRUE)
   13. ├─dplyr::filter(., .data$label != "NA")
   14. ├─dplyr::select(., -.data$val)
   15. └─dplyr::mutate(., label = .data$val)
  ── Error ('test-frq-weights.R:16:3'): frq-weights ──────────────────────────────
  Error in `as.data.frame.integer(x[[i]], optional = TRUE)`: row names contain missing values
  Backtrace:
       ▆
    1. └─sjmisc::frq(efc, e16sex) at test-frq-weights.R:16:3
    2.   └─sjmisc:::frq_helper(...)
    3.     └─base::data.frame(table(x, useNA = "always"))
    4.       ├─base::as.data.frame(x[[i]], optional = TRUE)
    5.       └─base::as.data.frame.table(x[[i]], optional = TRUE)
    6.         ├─base::eval(ex)
    7.         │ └─base::eval(ex)
    8.         └─base::data.frame(...)
    9.           ├─base::as.data.frame(x[[i]], optional = TRUE)
   10.           └─base::as.data.frame.integer(x[[i]], optional = TRUE)
  ── Error ('test-frq.R:9:3'): frq ───────────────────────────────────────────────
  Error in `as.data.frame.integer(x[[i]], optional = TRUE)`: row names contain missing values
  Backtrace:
       ▆
    1. ├─testthat::expect_is(frq(efc$e42dep), class = "list") at test-frq.R:9:3
    2. │ └─testthat::quasi_label(enquo(object), label)
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─sjmisc::frq(efc$e42dep)
    5.   └─sjmisc:::frq_helper(...)
    6.     └─base::data.frame(table(x, useNA = "always"))
    7.       ├─base::as.data.frame(x[[i]], optional = TRUE)
    8.       └─base::as.data.frame.table(x[[i]], optional = TRUE)
    9.         ├─base::eval(ex)
   10.         │ └─base::eval(ex)
   11.         └─base::data.frame(...)
   12.           ├─base::as.data.frame(x[[i]], optional = TRUE)
   13.           └─base::as.data.frame.integer(x[[i]], optional = TRUE)
  ── Error ('test-frq.R:13:3'): frq ──────────────────────────────────────────────
  Error in `as.data.frame.integer(x[[i]], optional = TRUE)`: row names contain missing values
  Backtrace:
       ▆
    1. ├─testthat::expect_is(frq(efc$e42dep, sort.frq = "asc"), class = "list") at test-frq.R:13:3
    2. │ └─testthat::quasi_label(enquo(object), label)
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─sjmisc::frq(efc$e42dep, sort.frq = "asc")
    5.   └─sjmisc:::frq_helper(...)
    6.     └─base::data.frame(table(x, useNA = "always"))
    7.       ├─base::as.data.frame(x[[i]], optional = TRUE)
    8.       └─base::as.data.frame.table(x[[i]], optional = TRUE)
    9.         ├─base::eval(ex)
   10.         │ └─base::eval(ex)
   11.         └─base::data.frame(...)
   12.           ├─base::as.data.frame(x[[i]], optional = TRUE)
   13.           └─base::as.data.frame.integer(x[[i]], optional = TRUE)
  ── Error ('test-frq.R:17:3'): frq ──────────────────────────────────────────────
  Error in `as.data.frame.integer(x[[i]], optional = TRUE)`: row names contain missing values
  Backtrace:
       ▆
    1. ├─testthat::expect_is(frq(efc, e42dep, e16sex), class = "list") at test-frq.R:17:3
    2. │ └─testthat::quasi_label(enquo(object), label)
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─sjmisc::frq(efc, e42dep, e16sex)
    5.   └─sjmisc:::frq_helper(...)
    6.     └─base::data.frame(table(x, useNA = "always"))
    7.       ├─base::as.data.frame(x[[i]], optional = TRUE)
    8.       └─base::as.data.frame.table(x[[i]], optional = TRUE)
    9.         ├─base::eval(ex)
   10.         │ └─base::eval(ex)
   11.         └─base::data.frame(...)
   12.           ├─base::as.data.frame(x[[i]], optional = TRUE)
   13.           └─base::as.data.frame.integer(x[[i]], optional = TRUE)
  ── Error ('test-frq.R:21:3'): frq ──────────────────────────────────────────────
  Error in `as.data.frame.integer(x[[i]], optional = TRUE)`: row names contain missing values
  Backtrace:
       ▆
    1. ├─testthat::expect_is(...) at test-frq.R:21:3
    2. │ └─testthat::quasi_label(enquo(object), label)
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─sjmisc::frq(efc, e42dep, e16sex, sort.frq = "asc")
    5.   └─sjmisc:::frq_helper(...)
    6.     └─base::data.frame(table(x, useNA = "always"))
    7.       ├─base::as.data.frame(x[[i]], optional = TRUE)
    8.       └─base::as.data.frame.table(x[[i]], optional = TRUE)
    9.         ├─base::eval(ex)
   10.         │ └─base::eval(ex)
   11.         └─base::data.frame(...)
   12.           ├─base::as.data.frame(x[[i]], optional = TRUE)
   13.           └─base::as.data.frame.integer(x[[i]], optional = TRUE)
  ── Error ('test-frq.R:25:3'): frq ──────────────────────────────────────────────
  Error in `as.data.frame.integer(x[[i]], optional = TRUE)`: row names contain missing values
  Backtrace:
       ▆
    1. ├─testthat::expect_is(frq(efc$c12hour, auto.grp = 5), class = "list") at test-frq.R:25:3
    2. │ └─testthat::quasi_label(enquo(object), label)
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─sjmisc::frq(efc$c12hour, auto.grp = 5)
    5.   └─sjmisc:::frq_helper(...)
    6.     └─base::data.frame(table(x, useNA = "always"))
    7.       ├─base::as.data.frame(x[[i]], optional = TRUE)
    8.       └─base::as.data.frame.table(x[[i]], optional = TRUE)
    9.         ├─base::eval(ex)
   10.         │ └─base::eval(ex)
   11.         └─base::data.frame(...)
   12.           ├─base::as.data.frame(x[[i]], optional = TRUE)
   13.           └─base::as.data.frame.integer(x[[i]], optional = TRUE)
  ── Error ('test-frq.R:29:3'): frq ──────────────────────────────────────────────
  Error in `as.data.frame.integer(x[[i]], optional = TRUE)`: row names contain missing values
  Backtrace:
       ▆
    1. ├─testthat::expect_is(...) at test-frq.R:29:3
    2. │ └─testthat::quasi_label(enquo(object), label)
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─sjmisc::frq(efc, c12hour, e17age, auto.grp = 5)
    5.   └─sjmisc:::frq_helper(...)
    6.     └─base::data.frame(table(x, useNA = "always"))
    7.       ├─base::as.data.frame(x[[i]], optional = TRUE)
    8.       └─base::as.data.frame.table(x[[i]], optional = TRUE)
    9.         ├─base::eval(ex)
   10.         │ └─base::eval(ex)
   11.         └─base::data.frame(...)
   12.           ├─base::as.data.frame(x[[i]], optional = TRUE)
   13.           └─base::as.data.frame.integer(x[[i]], optional = TRUE)
  ── Error ('test-frq.R:33:3'): frq ──────────────────────────────────────────────
  Error in `as.data.frame.integer(x[[i]], optional = TRUE)`: row names contain missing values
  Backtrace:
       ▆
    1. ├─testthat::expect_is(...) at test-frq.R:33:3
    2. │ └─testthat::quasi_label(enquo(object), label)
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─sjmisc::frq(efc, c12hour, e17age, auto.grp = 5, sort.frq = "desc")
    5.   └─sjmisc:::frq_helper(...)
    6.     └─base::data.frame(table(x, useNA = "always"))
    7.       ├─base::as.data.frame(x[[i]], optional = TRUE)
    8.       └─base::as.data.frame.table(x[[i]], optional = TRUE)
    9.         ├─base::eval(ex)
   10.         │ └─base::eval(ex)
   11.         └─base::data.frame(...)
   12.           ├─base::as.data.frame(x[[i]], optional = TRUE)
   13.           └─base::as.data.frame.integer(x[[i]], optional = TRUE)
  ── Error ('test-frq.R:37:3'): frq ──────────────────────────────────────────────
  Error in `as.data.frame.integer(x[[i]], optional = TRUE)`: row names contain missing values
  Backtrace:
       ▆
    1. └─sjmisc::frq(efc$e42dep, title = "test") at test-frq.R:37:3
    2.   └─sjmisc:::frq_helper(...)
    3.     └─base::data.frame(table(x, useNA = "always"))
    4.       ├─base::as.data.frame(x[[i]], optional = TRUE)
    5.       └─base::as.data.frame.table(x[[i]], optional = TRUE)
    6.         ├─base::eval(ex)
    7.         │ └─base::eval(ex)
    8.         └─base::data.frame(...)
    9.           ├─base::as.data.frame(x[[i]], optional = TRUE)
   10.           └─base::as.data.frame.integer(x[[i]], optional = TRUE)
  ── Error ('test-frq.R:62:3'): frq, show.na ─────────────────────────────────────
  Error in `as.data.frame.integer(x[[i]], optional = TRUE)`: row names contain missing values
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(nrow(frq(v1, show.na = TRUE)[[1]]), 3) at test-frq.R:62:3
    2. │ └─testthat::quasi_label(enquo(object), label)
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─base::nrow(frq(v1, show.na = TRUE)[[1]])
    5. └─sjmisc::frq(v1, show.na = TRUE)
    6.   └─sjmisc:::frq_helper(...)
    7.     └─base::data.frame(table(x, useNA = "always"))
    8.       ├─base::as.data.frame(x[[i]], optional = TRUE)
    9.       └─base::as.data.frame.table(x[[i]], optional = TRUE)
   10.         ├─base::eval(ex)
   11.         │ └─base::eval(ex)
   12.         └─base::data.frame(...)
   13.           ├─base::as.data.frame(x[[i]], optional = TRUE)
   14.           └─base::as.data.frame.integer(x[[i]], optional = TRUE)
  ── Error ('test-frq.R:78:3'): frq ──────────────────────────────────────────────
  Error in `as.data.frame.integer(x[[i]], optional = TRUE)`: row names contain missing values
  Backtrace:
       ▆
    1. └─sjmisc::frq(efc$e15relat) at test-frq.R:78:3
    2.   └─sjmisc:::frq_helper(...)
    3.     └─base::data.frame(table(x, useNA = "always"))
    4.       ├─base::as.data.frame(x[[i]], optional = TRUE)
    5.       └─base::as.data.frame.table(x[[i]], optional = TRUE)
    6.         ├─base::eval(ex)
    7.         │ └─base::eval(ex)
    8.         └─base::data.frame(...)
    9.           ├─base::as.data.frame(x[[i]], optional = TRUE)
   10.           └─base::as.data.frame.integer(x[[i]], optional = TRUE)
  ── Error ('test-frq.R:110:3'): frq, string ─────────────────────────────────────
  Error in `as.data.frame.integer(x[[i]], optional = TRUE)`: row names contain missing values
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(...) at test-frq.R:110:3
    2. │ └─testthat::quasi_label(enquo(object), label)
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─sjmisc::frq(dat$x)
    5.   └─sjmisc:::frq_helper(...)
    6.     └─base::data.frame(table(x, useNA = "always"))
    7.       ├─base::as.data.frame(x[[i]], optional = TRUE)
    8.       └─base::as.data.frame.table(x[[i]], optional = TRUE)
    9.         ├─base::eval(ex)
   10.         │ └─base::eval(ex)
   11.         └─base::data.frame(...)
   12.           ├─base::as.data.frame(x[[i]], optional = TRUE)
   13.           └─base::as.data.frame.integer(x[[i]], optional = TRUE)
  
  [ FAIL 14 | WARN 1 | SKIP 8 | PASS 136 ]
  Error:
  ! Test failures.
  Execution halted