Running ‘testthat.R’ [34s/41s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(sjmisc)
  > 
  > test_check("sjmisc")
  # x
  
       label frq raw.prc valid.prc cum.prc
  1    First   5   41.67     41.67   41.67
  2 Not home   3   25.00     25.00   66.67
  3  Refused   4   33.33     33.33  100.00
  
  
  # y
  
      label frq raw.prc valid.prc cum.prc
  1     A D   5   41.67     41.67   41.67
  2    An E   1    8.33      8.33   50.00
  3 The eff   6   50.00     50.00  100.00
  
  
       label frq raw.prc valid.prc cum.prc
  1    First   5   41.67     41.67   41.67
  2 Not home   3   25.00     25.00   66.67
  3  Refused   4   33.33     33.33  100.00
  
  # x
  
       label frq raw.prc valid.prc cum.prc
  1    First   5   41.67     41.67   41.67
  2 Not home   3   25.00     25.00   66.67
  3  Refused   4   33.33     33.33  100.00
  
  
  # x
  
       label frq raw.prc valid.prc cum.prc
  1    First   5   41.67     41.67   41.67
  2 Not home   3   25.00     25.00   66.67
  3  Refused   4   33.33     33.33  100.00
  
  
  # y
  
      label frq raw.prc valid.prc cum.prc
  1     A D   5   41.67     41.67   41.67
  2    An E   1    8.33      8.33   50.00
  3 The eff   6   50.00     50.00  100.00
  
  
       label frq raw.prc valid.prc cum.prc
  1    First   5   41.67     41.67   41.67
  2 Not home   3   25.00     25.00   66.67
  3  Refused   4   33.33     33.33  100.00
  
  
   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 10 | WARN 2 | SKIP 9 | PASS 148 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (3)
  • empty test (6)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-frq-weights.R:16:3'): frq-weights ──────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. └─sjmisc::frq(efc, e16sex) at test-frq-weights.R:16:2
    2.   └─sjmisc:::frq_helper(...)
    3.     ├─base::suppressMessages(dplyr::full_join(dat, dat2))
    4.     │ └─base::withCallingHandlers(...)
    5.     ├─dplyr::full_join(dat, dat2)
    6.     └─dplyr:::full_join.data.frame(dat, dat2)
    7.       └─dplyr:::join_mutate(...)
    8.         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
    9.         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   10.           └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   11.             └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   12.               ├─base::withCallingHandlers(...)
   13.               └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-frq.R:9:3'): frq ───────────────────────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_is(frq(efc$e42dep), class = "list") at test-frq.R:9:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─sjmisc::frq(efc$e42dep)
    5.   └─sjmisc:::frq_helper(...)
    6.     ├─base::suppressMessages(dplyr::full_join(dat, dat2))
    7.     │ └─base::withCallingHandlers(...)
    8.     ├─dplyr::full_join(dat, dat2)
    9.     └─dplyr:::full_join.data.frame(dat, dat2)
   10.       └─dplyr:::join_mutate(...)
   11.         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   12.         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   13.           └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   14.             └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   15.               ├─base::withCallingHandlers(...)
   16.               └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-frq.R:13:3'): frq ──────────────────────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_is(frq(efc$e42dep, sort.frq = "asc"), class = "list") at test-frq.R:13:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─sjmisc::frq(efc$e42dep, sort.frq = "asc")
    5.   └─sjmisc:::frq_helper(...)
    6.     ├─base::suppressMessages(dplyr::full_join(dat, dat2))
    7.     │ └─base::withCallingHandlers(...)
    8.     ├─dplyr::full_join(dat, dat2)
    9.     └─dplyr:::full_join.data.frame(dat, dat2)
   10.       └─dplyr:::join_mutate(...)
   11.         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   12.         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   13.           └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   14.             └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   15.               ├─base::withCallingHandlers(...)
   16.               └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-frq.R:17:3'): frq ──────────────────────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_is(frq(efc, e42dep, e16sex), class = "list") at test-frq.R:17:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─sjmisc::frq(efc, e42dep, e16sex)
    5.   └─sjmisc:::frq_helper(...)
    6.     ├─base::suppressMessages(dplyr::full_join(dat, dat2))
    7.     │ └─base::withCallingHandlers(...)
    8.     ├─dplyr::full_join(dat, dat2)
    9.     └─dplyr:::full_join.data.frame(dat, dat2)
   10.       └─dplyr:::join_mutate(...)
   11.         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   12.         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   13.           └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   14.             └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   15.               ├─base::withCallingHandlers(...)
   16.               └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-frq.R:21:3'): frq ──────────────────────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_is(...) at test-frq.R:21:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─sjmisc::frq(efc, e42dep, e16sex, sort.frq = "asc")
    5.   └─sjmisc:::frq_helper(...)
    6.     ├─base::suppressMessages(dplyr::full_join(dat, dat2))
    7.     │ └─base::withCallingHandlers(...)
    8.     ├─dplyr::full_join(dat, dat2)
    9.     └─dplyr:::full_join.data.frame(dat, dat2)
   10.       └─dplyr:::join_mutate(...)
   11.         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   12.         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   13.           └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   14.             └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   15.               ├─base::withCallingHandlers(...)
   16.               └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-frq.R:25:3'): frq ──────────────────────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_is(frq(efc$c12hour, auto.grp = 5), class = "list") at test-frq.R:25:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─sjmisc::frq(efc$c12hour, auto.grp = 5)
    5.   └─sjmisc:::frq_helper(...)
    6.     ├─base::suppressMessages(dplyr::full_join(dat, dat2))
    7.     │ └─base::withCallingHandlers(...)
    8.     ├─dplyr::full_join(dat, dat2)
    9.     └─dplyr:::full_join.data.frame(dat, dat2)
   10.       └─dplyr:::join_mutate(...)
   11.         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   12.         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   13.           └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   14.             └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   15.               ├─base::withCallingHandlers(...)
   16.               └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-frq.R:29:3'): frq ──────────────────────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_is(...) at test-frq.R:29:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. └─sjmisc::frq(efc, c12hour, e17age, auto.grp = 5)
    5.   └─sjmisc:::frq_helper(...)
    6.     ├─base::suppressMessages(dplyr::full_join(dat, dat2))
    7.     │ └─base::withCallingHandlers(...)
    8.     ├─dplyr::full_join(dat, dat2)
    9.     └─dplyr:::full_join.data.frame(dat, dat2)
   10.       └─dplyr:::join_mutate(...)
   11.         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   12.         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   13.           └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   14.             └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   15.               ├─base::withCallingHandlers(...)
   16.               └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-frq.R:33:3'): frq ──────────────────────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_is(...) at test-frq.R:33:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    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::suppressMessages(dplyr::full_join(dat, dat2))
    7.     │ └─base::withCallingHandlers(...)
    8.     ├─dplyr::full_join(dat, dat2)
    9.     └─dplyr:::full_join.data.frame(dat, dat2)
   10.       └─dplyr:::join_mutate(...)
   11.         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   12.         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   13.           └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   14.             └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   15.               ├─base::withCallingHandlers(...)
   16.               └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-frq.R:37:3'): frq ──────────────────────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. └─sjmisc::frq(efc$e42dep, title = "test") at test-frq.R:37:2
    2.   └─sjmisc:::frq_helper(...)
    3.     ├─base::suppressMessages(dplyr::full_join(dat, dat2))
    4.     │ └─base::withCallingHandlers(...)
    5.     ├─dplyr::full_join(dat, dat2)
    6.     └─dplyr:::full_join.data.frame(dat, dat2)
    7.       └─dplyr:::join_mutate(...)
    8.         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
    9.         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   10.           └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   11.             └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   12.               ├─base::withCallingHandlers(...)
   13.               └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-frq.R:86:3'): frq ──────────────────────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─efc %>% dplyr::group_by(c172code) %>% ... at test-frq.R:86:2
    2. └─sjmisc::frq(., c161sex, e15relat, grp.strings = 2)
    3.   └─sjmisc:::frq_helper(...)
    4.     ├─base::suppressMessages(dplyr::full_join(dat, dat2))
    5.     │ └─base::withCallingHandlers(...)
    6.     ├─dplyr::full_join(dat, dat2)
    7.     └─dplyr:::full_join.data.frame(dat, dat2)
    8.       └─dplyr:::join_mutate(...)
    9.         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   10.         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
   11.           └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   12.             └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   13.               ├─base::withCallingHandlers(...)
   14.               └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 10 | WARN 2 | SKIP 9 | PASS 148 ]
  Error: Test failures
  Execution halted