Running ‘testthat.R’ [16s/21s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > Sys.setenv("R_TESTS" = "")
  > library(testthat)
  > library(dexter)
  > test_check("dexter")
  2000 responses imported.
  2000 responses imported.
  
  rules_changed: 1
  rules_added: 0 
  
  rules_changed: 0
  rules_added: 24 
    item_property
  1         Curse
  2         Scold
  3         Shout
                                                                                                 result
  1                                                                                                  OK
  2                                                                                                  OK
  3 Error in vectbl_assign(x[[j]], i, recycled_value[[j]]) : \n  DLL requires the use of native symbols
  [ FAIL 9 | WARN 22 | SKIP 1 | PASS 173 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (1)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test_ability.R:13:3'): inconsistencies between data and parms are handled correctly ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─dexter::fit_enorm(db) at test_ability.R:13:2
    2. │ └─dexter:::fit_enorm_(...)
    3. │   └─dexter:::get_sufStats_nrm(respData)
    4. │     └─... %>% arrange(.data$booklet_id, .data$booklet_score)
    5. ├─dplyr::arrange(., .data$booklet_id, .data$booklet_score)
    6. ├─dplyr::mutate(., N = coalesce(.data$N, 0L))
    7. ├─dplyr::right_join(., all_scores, by = c("booklet_id", "booklet_score"))
    8. └─dplyr:::right_join.data.frame(...)
    9.   └─dplyr:::join_mutate(...)
   10.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   11.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   12.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   13.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   14.           ├─base::withCallingHandlers(...)
   15.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_ability.R:32:3'): verbAgg abilities ────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─dexter::fit_enorm(db) at test_ability.R:32:2
    2. │ └─dexter:::fit_enorm_(...)
    3. │   └─dexter:::get_sufStats_nrm(respData)
    4. │     └─... %>% arrange(.data$booklet_id, .data$booklet_score)
    5. ├─dplyr::arrange(., .data$booklet_id, .data$booklet_score)
    6. ├─dplyr::mutate(., N = coalesce(.data$N, 0L))
    7. ├─dplyr::right_join(., all_scores, by = c("booklet_id", "booklet_score"))
    8. └─dplyr:::right_join.data.frame(...)
    9.   └─dplyr:::join_mutate(...)
   10.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   11.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   12.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   13.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   14.           ├─base::withCallingHandlers(...)
   15.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Failure ('test_database.R:71:3'): rule updates and sanity checks ────────────
  `expect_error(...)` produced no output
  should complain about duplicate responses
  ── Error ('test_enorm.R:14:3'): calibration of verbal aggression dataset matches oplm results, with fixed and unfixed ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─dexter::fit_enorm(db) at test_enorm.R:14:2
    2. │ └─dexter:::fit_enorm_(...)
    3. │   └─dexter:::get_sufStats_nrm(respData)
    4. │     └─... %>% arrange(.data$booklet_id, .data$booklet_score)
    5. ├─dplyr::arrange(., .data$booklet_id, .data$booklet_score)
    6. ├─dplyr::mutate(., N = coalesce(.data$N, 0L))
    7. ├─dplyr::right_join(., all_scores, by = c("booklet_id", "booklet_score"))
    8. └─dplyr:::right_join.data.frame(...)
    9.   └─dplyr:::join_mutate(...)
   10.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   11.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   12.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   13.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   14.           ├─base::withCallingHandlers(...)
   15.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_interaction.R:10:3'): interaction model parameters are stable over simulation ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─dexter::fit_inter(db) at test_interaction.R:10:2
    2. │ └─dexter:::fit_inter_(dataSrc, qtpredicate, env, regs = TRUE)
    3. │   └─... %>% arrange(.data$booklet_score)
    4. ├─dplyr::arrange(., .data$booklet_score)
    5. ├─dplyr::mutate(., N = coalesce(.data$N, 0L))
    6. ├─dplyr::right_join(...)
    7. └─dplyr:::right_join.data.frame(...)
    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]])
  ── Error ('test_latent_cor.R:12:3'): latent correlations work ──────────────────
  Error in `latent_cor(db, "behavior")`: Some models could not be estimated
  Backtrace:
      ▆
   1. └─dexter::latent_cor(db, "behavior") at test_latent_cor.R:12:2
  ── Error ('test_p2p.R:14:3'): complete case works ──────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─dexter::fit_enorm(db, method = "Bayes") at test_p2p.R:14:2
    2. │ └─dexter:::fit_enorm_(...)
    3. │   └─dexter:::get_sufStats_nrm(respData)
    4. │     └─... %>% arrange(.data$booklet_id, .data$booklet_score)
    5. ├─dplyr::arrange(., .data$booklet_id, .data$booklet_score)
    6. ├─dplyr::mutate(., N = coalesce(.data$N, 0L))
    7. ├─dplyr::right_join(., all_scores, by = c("booklet_id", "booklet_score"))
    8. └─dplyr:::right_join.data.frame(...)
    9.   └─dplyr:::join_mutate(...)
   10.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   11.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   12.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   13.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   14.           ├─base::withCallingHandlers(...)
   15.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_plausible_values.R:9:3'): populations work ─────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─dexter::fit_enorm(...) at test_plausible_values.R:9:2
    2. │ └─dexter:::fit_enorm_(...)
    3. │   └─dexter:::get_sufStats_nrm(respData)
    4. │     └─... %>% arrange(.data$booklet_id, .data$booklet_score)
    5. ├─dplyr::arrange(., .data$booklet_id, .data$booklet_score)
    6. ├─dplyr::mutate(., N = coalesce(.data$N, 0L))
    7. ├─dplyr::right_join(., all_scores, by = c("booklet_id", "booklet_score"))
    8. └─dplyr:::right_join.data.frame(...)
    9.   └─dplyr:::join_mutate(...)
   10.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   11.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   12.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   13.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   14.           ├─base::withCallingHandlers(...)
   15.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_profiles.R:25:3'): profile analysis verb agg ───────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─dexter::fit_enorm(db) at test_profiles.R:25:2
    2. │ └─dexter:::fit_enorm_(...)
    3. │   └─dexter:::get_sufStats_nrm(respData)
    4. │     └─... %>% arrange(.data$booklet_id, .data$booklet_score)
    5. ├─dplyr::arrange(., .data$booklet_id, .data$booklet_score)
    6. ├─dplyr::mutate(., N = coalesce(.data$N, 0L))
    7. ├─dplyr::right_join(., all_scores, by = c("booklet_id", "booklet_score"))
    8. └─dplyr:::right_join.data.frame(...)
    9.   └─dplyr:::join_mutate(...)
   10.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   11.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   12.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   13.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   14.           ├─base::withCallingHandlers(...)
   15.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 9 | WARN 22 | SKIP 1 | PASS 173 ]
  Error: Test failures
  In addition: Warning message:
  call dbDisconnect() when finished working with a connection 
  Execution halted