Running ‘testthat.R’ [12s/20s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(pointblank)
  
  Attaching package: 'pointblank'
  
  The following object is masked from 'package:testthat':
  
      matches
  
  > library(dittodb)
  Loading required package: DBI
  > test_check("pointblank")
  [ FAIL 10 | WARN 0 | SKIP 20 | PASS 414 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (20)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-action_levels.R:152:3'): The appropriate actions occur when using `action_levels()` ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. ├─... %>% interrogate() at test-action_levels.R:152:2
   2. └─pointblank::interrogate(.)
   3.   ├─base::`[[<-`(`*tmp*`, i, "eval_active", value = `<lgl>`)
   4.   └─tibble:::`[[<-.tbl_df`(`*tmp*`, i, "eval_active", value = `<lgl>`)
   5.     └─tibble:::tbl_subassign(...)
   6.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   7.         ├─base::withCallingHandlers(...)
   8.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-create_multiagent.R:5:3'): Creating a valid `multiagent` object is possible ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. ├─... %>% interrogate() at test-create_multiagent.R:5:2
   2. └─pointblank::interrogate(.)
   3.   ├─base::`[[<-`(`*tmp*`, i, "eval_active", value = `<lgl>`)
   4.   └─tibble:::`[[<-.tbl_df`(`*tmp*`, i, "eval_active", value = `<lgl>`)
   5.     └─tibble:::tbl_subassign(...)
   6.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   7.         ├─base::withCallingHandlers(...)
   8.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-incorporate_with_informant.R:40:3'): Incorporating an informant yields the correct results ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─informant %>% incorporate() at test-incorporate_with_informant.R:40:2
    2. ├─pointblank::incorporate(.)
    3. │ └─snippet %>% pb_fmt_number(locale = locale, decimals = 0)
    4. ├─pointblank:::pb_fmt_number(., locale = locale, decimals = 0)
    5. │ └─dplyr::tibble(a = x) %>% gt::gt() %>% ...
    6. ├─gt::fmt_number(...)
    7. │ └─gt:::stop_if_not_gt(data = data)
    8. │   └─gt:::is_gt(data)
    9. └─gt::gt(.)
   10.   └─gt::cols_align(data = data, align = "auto")
   11.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
   12.       ├─base::`[[<-`(...)
   13.       └─tibble:::`[[<-.tbl_df`(...)
   14.         └─tibble:::tbl_subassign(...)
   15.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   16.             ├─base::withCallingHandlers(...)
   17.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-incorporate_with_informant.R:150:3'): Incorporating an informant from YAML yields the correct results ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─informant_from_yaml %>% incorporate() at test-incorporate_with_informant.R:150:2
    2. ├─pointblank::incorporate(.)
    3. │ └─snippet %>% pb_fmt_number(locale = locale, decimals = 0)
    4. ├─pointblank:::pb_fmt_number(., locale = locale, decimals = 0)
    5. │ └─dplyr::tibble(a = x) %>% gt::gt() %>% ...
    6. ├─gt::fmt_number(...)
    7. │ └─gt:::stop_if_not_gt(data = data)
    8. │   └─gt:::is_gt(data)
    9. └─gt::gt(.)
   10.   └─gt::cols_align(data = data, align = "auto")
   11.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
   12.       ├─base::`[[<-`(...)
   13.       └─tibble:::`[[<-.tbl_df`(...)
   14.         └─tibble:::tbl_subassign(...)
   15.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   16.             ├─base::withCallingHandlers(...)
   17.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-interrogate_conjointly.R:12:3'): Interrogating conjointly with an agent yields the correct results ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. ├─... %>% interrogate() at test-interrogate_conjointly.R:12:2
   2. └─pointblank::interrogate(.)
   3.   ├─base::`[[<-`(`*tmp*`, i, "eval_active", value = `<lgl>`)
   4.   └─tibble:::`[[<-.tbl_df`(`*tmp*`, i, "eval_active", value = `<lgl>`)
   5.     └─tibble:::tbl_subassign(...)
   6.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   7.         ├─base::withCallingHandlers(...)
   8.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-schema.R:7:3'): The `cols_schema_match()` function works with an agent ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. ├─... %>% interrogate() at test-schema.R:7:2
   2. └─pointblank::interrogate(.)
   3.   ├─base::`[[<-`(`*tmp*`, i, "eval_active", value = `<lgl>`)
   4.   └─tibble:::`[[<-.tbl_df`(`*tmp*`, i, "eval_active", value = `<lgl>`)
   5.     └─tibble:::tbl_subassign(...)
   6.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   7.         ├─base::withCallingHandlers(...)
   8.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-schema.R:302:3'): The `expect_cols_schema_match()` function works ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_success(...) at test-schema.R:302:2
    2. │ └─testthat::capture_expectation(expr)
    3. │   └─base::tryCatch(...)
    4. │     └─base (local) tryCatchList(expr, classes, parentenv, handlers)
    5. │       └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
    6. │         └─base (local) doTryCatch(return(expr), name, parentenv, handler)
    7. ├─small_table %>% ...
    8. ├─pointblank::expect_col_schema_match(...)
    9. │ └─... %>% .$validation_set
   10. └─pointblank::interrogate(.)
   11.   ├─base::`[[<-`(`*tmp*`, i, "eval_active", value = `<lgl>`)
   12.   └─tibble:::`[[<-.tbl_df`(`*tmp*`, i, "eval_active", value = `<lgl>`)
   13.     └─tibble:::tbl_subassign(...)
   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-schema.R:513:3'): The `test_cols_schema_match()` function works ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_true(...) at test-schema.R:513:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─small_table %>% ...
    5. ├─pointblank::test_col_schema_match(...)
    6. │ └─... %>% .$validation_set
    7. └─pointblank::interrogate(.)
    8.   ├─base::`[[<-`(`*tmp*`, i, "eval_active", value = `<lgl>`)
    9.   └─tibble:::`[[<-.tbl_df`(`*tmp*`, i, "eval_active", value = `<lgl>`)
   10.     └─tibble:::tbl_subassign(...)
   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-x_list.R:95:3'): An x-list for a step is structurally correct ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. ├─agent %>% interrogate() %>% get_agent_x_list(i = 1) at test-x_list.R:95:2
   2. ├─pointblank::get_agent_x_list(., i = 1)
   3. └─pointblank::interrogate(.)
   4.   ├─base::`[[<-`(`*tmp*`, i, "eval_active", value = `<lgl>`)
   5.   └─tibble:::`[[<-.tbl_df`(`*tmp*`, i, "eval_active", value = `<lgl>`)
   6.     └─tibble:::tbl_subassign(...)
   7.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   8.         ├─base::withCallingHandlers(...)
   9.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-x_list.R:185:3'): A complete x-list is structurally correct ────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─agent %>% get_agent_x_list() at test-x_list.R:185:2
    2. ├─pointblank::get_agent_x_list(.)
    3. │ └─agent %>% get_agent_report()
    4. ├─pointblank::get_agent_report(.)
    5. │ └─pointblank:::make_action_levels_html(agent = agent, locale = locale)
    6. │   ├─... %||% "&mdash;"
    7. │   └─pointblank:::pb_fmt_number(...)
    8. │     └─dplyr::tibble(a = x) %>% gt::gt() %>% ...
    9. ├─gt::fmt_number(...)
   10. │ └─gt:::stop_if_not_gt(data = data)
   11. │   └─gt:::is_gt(data)
   12. └─gt::gt(.)
   13.   └─gt::cols_align(data = data, align = "auto")
   14.     └─gt:::dt_boxhead_edit(data = data, var = column_names[i], column_align = align[i])
   15.       ├─base::`[[<-`(...)
   16.       └─tibble:::`[[<-.tbl_df`(...)
   17.         └─tibble:::tbl_subassign(...)
   18.           └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   19.             ├─base::withCallingHandlers(...)
   20.             └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 10 | WARN 0 | SKIP 20 | PASS 414 ]
  Error: Test failures
  Execution halted