Running ‘testthat.R’ [55s/92s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(ddpcr)
  
  Attaching package: 'ddpcr'
  
  The following object is masked from 'package:stats':
  
      step
  
  > 
  > test_check("ddpcr")
  [ FAIL 4 | WARN 650 | SKIP 0 | PASS 237 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-custom_thresholds.R:38:3'): classify works ─────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─get_plate() %>% set_thresholds(c(4000, 7000)) %>% analyze at test-custom_thresholds.R:38:2
    2. ├─ddpcr::analyze(.)
    3. │ └─plate %<>% next_step(n = steps_left)
    4. └─ddpcr::next_step(., n = steps_left)
    5.   ├─base::do.call(next_step_fxn, list(plate))
    6.   ├─ddpcr::remove_outliers(`<cstm_thr>`)
    7.   └─ddpcr:::remove_outliers.ddpcr_plate(`<cstm_thr>`)
    8.     ├─base::`[<-`(`*tmp*`, outlier_idx, "cluster", value = `<int>`)
    9.     └─tibble:::`[<-.tbl_df`(`*tmp*`, outlier_idx, "cluster", value = `<int>`)
   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-plate-attribs.R:30:3'): test basic plate attribute getters/setters ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_identical(plate %>% next_step %>% status, 2L) at test-plate-attribs.R:30:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─plate %>% next_step %>% status
    5. ├─ddpcr::status(.)
    6. │ ├─base::stopifnot(plate %>% inherits("ddpcr_plate"))
    7. │ └─plate %>% inherits("ddpcr_plate")
    8. ├─base::inherits(., "ddpcr_plate")
    9. └─ddpcr::next_step(.)
   10.   ├─base::do.call(next_step_fxn, list(plate))
   11.   ├─ddpcr::remove_outliers(`<cstm_thr>`)
   12.   └─ddpcr:::remove_outliers.ddpcr_plate(`<cstm_thr>`)
   13.     ├─base::`[<-`(`*tmp*`, outlier_idx, "cluster", value = `<int>`)
   14.     └─tibble:::`[<-.tbl_df`(`*tmp*`, outlier_idx, "cluster", value = `<int>`)
   15.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   16.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   17.           ├─base::withCallingHandlers(...)
   18.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-plate.R:12:3'): reset works ────────────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─plate %>% analyze at test-plate.R:12:2
    2. ├─ddpcr::analyze(.)
    3. │ └─plate %<>% next_step(n = steps_left)
    4. └─ddpcr::next_step(., n = steps_left)
    5.   ├─base::do.call(next_step_fxn, list(plate))
    6.   ├─ddpcr::remove_outliers(`<cstm_thr>`)
    7.   └─ddpcr:::remove_outliers.ddpcr_plate(`<cstm_thr>`)
    8.     ├─base::`[<-`(`*tmp*`, outlier_idx, "cluster", value = `<int>`)
    9.     └─tibble:::`[<-.tbl_df`(`*tmp*`, outlier_idx, "cluster", value = `<int>`)
   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-plate.R:46:3'): next_step and analyze work ─────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_equal(plate %>% next_step %>% status, 2L) at test-plate.R:46:2
    2. │ └─testthat::quasi_label(enquo(object), label, arg = "object")
    3. │   └─rlang::eval_bare(expr, quo_get_env(quo))
    4. ├─plate %>% next_step %>% status
    5. ├─ddpcr::status(.)
    6. │ ├─base::stopifnot(plate %>% inherits("ddpcr_plate"))
    7. │ └─plate %>% inherits("ddpcr_plate")
    8. ├─base::inherits(., "ddpcr_plate")
    9. └─ddpcr::next_step(.)
   10.   ├─base::do.call(next_step_fxn, list(plate))
   11.   ├─ddpcr::remove_outliers(`<cstm_thr>`)
   12.   └─ddpcr:::remove_outliers.ddpcr_plate(`<cstm_thr>`)
   13.     ├─base::`[<-`(`*tmp*`, outlier_idx, "cluster", value = `<int>`)
   14.     └─tibble:::`[<-.tbl_df`(`*tmp*`, outlier_idx, "cluster", value = `<int>`)
   15.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   16.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   17.           ├─base::withCallingHandlers(...)
   18.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 4 | WARN 650 | SKIP 0 | PASS 237 ]
  Error: Test failures
  Execution halted