Running ‘testthat.R’ [28s/36s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(isotracer)
  To automatically run isotracer in parallel on a multicore CPU, you can call:
    options(mc.cores = parallel::detectCores())
  
  
  Attaching package: 'isotracer'
  
  The following object is masked from 'package:stats':
  
      filter
  
  > 
  > test_check("isotracer")
  [ FAIL 31 | WARN 1 | SKIP 0 | PASS 32 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-integration.R:62:9'): Model with two compartments works ────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─new_networkModel() %>% set_topo("A -> B") %>% ... at test-integration.R:62:8
    2. ├─isotracer::set_init(...)
    3. │ ├─base::unique(unlist(comps(nm)))
    4. │ ├─base::unlist(comps(nm))
    5. │ └─isotracer::comps(nm)
    6. └─isotracer::set_topo(., "A -> B")
    7.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<lgl>`)
    8.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<lgl>`)
    9.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   10.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   11.         ├─base::withCallingHandlers(...)
   12.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-integration.R:110:9'): Model with two compartments, one split works ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% ... at test-integration.R:110:8
    2. ├─isotracer::set_init(...)
    3. │ ├─base::unique(unlist(comps(nm)))
    4. │ ├─base::unlist(comps(nm))
    5. │ └─isotracer::comps(nm)
    6. ├─isotracer::set_split(., "B")
    7. │ └─base::nrow(nm)
    8. └─isotracer::set_topo(., "A -> B")
    9.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<lgl>`)
   10.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<lgl>`)
   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-integration.R:160:9'): Model with three compartments work ──────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─new_networkModel() %>% set_topo("A -> B -> C") %>% ... at test-integration.R:160:8
    2. ├─isotracer::set_init(...)
    3. │ ├─base::unique(unlist(comps(nm)))
    4. │ ├─base::unlist(comps(nm))
    5. │ └─isotracer::comps(nm)
    6. └─isotracer::set_topo(., "A -> B -> C")
    7.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<lgl>`)
    8.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<lgl>`)
    9.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   10.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   11.         ├─base::withCallingHandlers(...)
   12.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-integration.R:214:9'): Model with three compartments, one split works ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% ... at test-integration.R:214:8
    2. ├─isotracer::set_init(...)
    3. │ ├─base::unique(unlist(comps(nm)))
    4. │ ├─base::unlist(comps(nm))
    5. │ └─isotracer::comps(nm)
    6. ├─isotracer::set_split(., "B")
    7. │ └─base::nrow(nm)
    8. └─isotracer::set_topo(., "A -> B -> C")
    9.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<lgl>`)
   10.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<lgl>`)
   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-integration.R:62:9'): Model with two compartments works ────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─new_networkModel() %>% set_topo("A -> B") %>% ... at test-integration.R:62:8
    2. ├─isotracer::set_init(...)
    3. │ ├─base::unique(unlist(comps(nm)))
    4. │ ├─base::unlist(comps(nm))
    5. │ └─isotracer::comps(nm)
    6. └─isotracer::set_topo(., "A -> B")
    7.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<lgl>`)
    8.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<lgl>`)
    9.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   10.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   11.         ├─base::withCallingHandlers(...)
   12.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-integration.R:110:9'): Model with two compartments, one split works ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% ... at test-integration.R:110:8
    2. ├─isotracer::set_init(...)
    3. │ ├─base::unique(unlist(comps(nm)))
    4. │ ├─base::unlist(comps(nm))
    5. │ └─isotracer::comps(nm)
    6. ├─isotracer::set_split(., "B")
    7. │ └─base::nrow(nm)
    8. └─isotracer::set_topo(., "A -> B")
    9.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<lgl>`)
   10.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<lgl>`)
   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-integration.R:160:9'): Model with three compartments work ──────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─new_networkModel() %>% set_topo("A -> B -> C") %>% ... at test-integration.R:160:8
    2. ├─isotracer::set_init(...)
    3. │ ├─base::unique(unlist(comps(nm)))
    4. │ ├─base::unlist(comps(nm))
    5. │ └─isotracer::comps(nm)
    6. └─isotracer::set_topo(., "A -> B -> C")
    7.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<lgl>`)
    8.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<lgl>`)
    9.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   10.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   11.         ├─base::withCallingHandlers(...)
   12.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-integration.R:214:9'): Model with three compartments, one split works ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% ... at test-integration.R:214:8
    2. ├─isotracer::set_init(...)
    3. │ ├─base::unique(unlist(comps(nm)))
    4. │ ├─base::unlist(comps(nm))
    5. │ └─isotracer::comps(nm)
    6. ├─isotracer::set_split(., "B")
    7. │ └─base::nrow(nm)
    8. └─isotracer::set_topo(., "A -> B -> C")
    9.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<lgl>`)
   10.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<lgl>`)
   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-integration.R:352:5'): Multiple pulses work ────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. ├─new_networkModel() %>% set_topo("NH4 -> epilithon") at test-integration.R:352:4
   2. └─isotracer::set_topo(., "NH4 -> epilithon")
   3.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<lgl>`)
   4.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<lgl>`)
   5.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   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-integration.R:411:5'): Model runs when eta and zeta have covariates ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. ├─new_networkModel() %>% ... at test-integration.R:411:4
   2. └─isotracer::set_topo(., "NH4 -> algae -> daphnia -> NH4")
   3.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<lgl>`)
   4.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<lgl>`)
   5.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   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-ui_getters.R:48:5'): priors() works as expected ────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% ... at test-ui_getters.R:48:4
    2. ├─isotracer::set_obs(...)
    3. ├─isotracer::set_init(...)
    4. │ ├─base::unique(unlist(comps(nm)))
    5. │ ├─base::unlist(comps(nm))
    6. │ └─isotracer::comps(nm)
    7. └─isotracer::set_topo(., "NH4 -> algae -> daphnia -> NH4")
    8.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<lgl>`)
    9.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<lgl>`)
   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-ui_model-building.R:30:5'): set_topo() works ───────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. ├─new_networkModel() %>% set_topo("NH4 -> algae -> daphnia") at test-ui_model-building.R:30:4
   2. └─isotracer::set_topo(., "NH4 -> algae -> daphnia")
   3.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<lgl>`)
   4.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<lgl>`)
   5.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   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-ui_model-building.R:50:5'): Different topologies work with set_topo() ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. ├─new_networkModel() %>% ... at test-ui_model-building.R:50:4
   2. └─isotracer::set_topo(...)
   3.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<lgl>`)
   4.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<lgl>`)
   5.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   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-ui_model-building.R:100:5'): set_topo() warns the user when the network model is not empty ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
      ▆
   1. ├─new_networkModel() %>% ... at test-ui_model-building.R:100:4
   2. └─isotracer::set_topo(...)
   3.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<lgl>`)
   4.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<lgl>`)
   5.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   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-ui_model-building.R:118:5'): set_init() works ──────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% ... at test-ui_model-building.R:118:4
    2. ├─isotracer::set_init(...)
    3. │ ├─base::unique(unlist(comps(nm)))
    4. │ ├─base::unlist(comps(nm))
    5. │ └─isotracer::comps(nm)
    6. └─isotracer::set_topo(., "NH4 -> algae -> daphnia -> NH4")
    7.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<lgl>`)
    8.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<lgl>`)
    9.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   10.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   11.         ├─base::withCallingHandlers(...)
   12.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-ui_model-building.R:142:5'): set_init() can handle grouping ────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% ... at test-ui_model-building.R:142:4
    2. ├─isotracer::set_init(...)
    3. │ ├─base::unique(unlist(comps(nm)))
    4. │ ├─base::unlist(comps(nm))
    5. │ └─isotracer::comps(nm)
    6. └─isotracer::set_topo(., "NH4 -> algae -> daphnia -> NH4")
    7.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<lgl>`)
    8.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<lgl>`)
    9.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   10.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   11.         ├─base::withCallingHandlers(...)
   12.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-ui_model-building.R:171:5'): set_obs() works ───────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% ... at test-ui_model-building.R:171:4
    2. ├─isotracer::set_obs(...)
    3. ├─isotracer::set_init(...)
    4. │ ├─base::unique(unlist(comps(nm)))
    5. │ ├─base::unlist(comps(nm))
    6. │ └─isotracer::comps(nm)
    7. └─isotracer::set_topo(., "NH4 -> algae -> daphnia -> NH4")
    8.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<lgl>`)
    9.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<lgl>`)
   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-ui_model-building.R:202:5'): set_obs() can handle grouping (1) ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% ... at test-ui_model-building.R:202:4
    2. ├─isotracer::set_obs(...)
    3. ├─isotracer::set_init(...)
    4. │ ├─base::unique(unlist(comps(nm)))
    5. │ ├─base::unlist(comps(nm))
    6. │ └─isotracer::comps(nm)
    7. └─isotracer::set_topo(., "NH4 -> algae -> daphnia -> NH4")
    8.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<lgl>`)
    9.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<lgl>`)
   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-ui_model-building.R:236:5'): set_obs() can handle grouping (2) ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% ... at test-ui_model-building.R:236:4
    2. ├─isotracer::set_obs(...)
    3. ├─isotracer::set_init(...)
    4. │ ├─base::unique(unlist(comps(nm)))
    5. │ ├─base::unlist(comps(nm))
    6. │ └─isotracer::comps(nm)
    7. └─isotracer::set_topo(., "NH4 -> algae -> daphnia -> NH4")
    8.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<lgl>`)
    9.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<lgl>`)
   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-ui_model-building.R:309:5'): set_params() works ────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% ... at test-ui_model-building.R:309:4
    2. ├─isotracer::set_obs(...)
    3. ├─isotracer::set_init(...)
    4. │ ├─base::unique(unlist(comps(nm)))
    5. │ ├─base::unlist(comps(nm))
    6. │ └─isotracer::comps(nm)
    7. └─isotracer::set_topo(., "NH4 -> algae -> daphnia -> NH4")
    8.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<lgl>`)
    9.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<lgl>`)
   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-ui_model-building.R:341:5'): set_prior() works ─────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% ... at test-ui_model-building.R:341:4
    2. ├─isotracer::set_obs(...)
    3. ├─isotracer::set_init(...)
    4. │ ├─base::unique(unlist(comps(nm)))
    5. │ ├─base::unlist(comps(nm))
    6. │ └─isotracer::comps(nm)
    7. └─isotracer::set_topo(., "NH4 -> algae -> daphnia -> NH4")
    8.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<lgl>`)
    9.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<lgl>`)
   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-ui_model-building.R:421:5'): add_covariates() works ────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% ... at test-ui_model-building.R:421:4
    2. ├─isotracer::set_obs(...)
    3. ├─isotracer::set_init(...)
    4. │ ├─base::unique(unlist(comps(nm)))
    5. │ ├─base::unlist(comps(nm))
    6. │ └─isotracer::comps(nm)
    7. └─isotracer::set_topo(., "NH4 -> algae -> daphnia -> NH4")
    8.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<lgl>`)
    9.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<lgl>`)
   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-ui_plotting.R:17:5'): Basic plotting does not crash ────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% project(end = 10) at test-ui_plotting.R:17:4
    2. ├─isotracer::project(., end = 10)
    3. │ └─dplyr::bind_rows(nm$parameters)
    4. │   └─rlang::list2(...)
    5. ├─isotracer::set_priors(., normal_p(0, 4), "", quiet = TRUE)
    6. │ └─isotracer::params(x, simplify = TRUE)
    7. │   ├─base::stopifnot("parameters" %in% colnames(nm))
    8. │   ├─"parameters" %in% colnames(nm)
    9. │   └─base::colnames(nm)
   10. │     └─base::is.data.frame(x)
   11. ├─isotracer::set_params(...)
   12. ├─isotracer::set_init(...)
   13. │ ├─base::unique(unlist(comps(nm)))
   14. │ ├─base::unlist(comps(nm))
   15. │ └─isotracer::comps(nm)
   16. └─isotracer::set_topo(., "NH4 -> algae -> daphnia -> NH4")
   17.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<lgl>`)
   18.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<lgl>`)
   19.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   20.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   21.         ├─base::withCallingHandlers(...)
   22.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-ui_predictions.R:17:5'): Basic prediction works ────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% set_priors(normal_p(0, 4), "", quiet = TRUE) at test-ui_predictions.R:17:4
    2. ├─isotracer::set_priors(., normal_p(0, 4), "", quiet = TRUE)
    3. │ └─isotracer::params(x, simplify = TRUE)
    4. │   ├─base::stopifnot("parameters" %in% colnames(nm))
    5. │   ├─"parameters" %in% colnames(nm)
    6. │   └─base::colnames(nm)
    7. │     └─base::is.data.frame(x)
    8. ├─isotracer::project(., end = 10)
    9. │ └─dplyr::bind_rows(nm$parameters)
   10. │   └─rlang::list2(...)
   11. ├─isotracer::set_params(...)
   12. ├─isotracer::set_init(...)
   13. │ ├─base::unique(unlist(comps(nm)))
   14. │ ├─base::unlist(comps(nm))
   15. │ └─isotracer::comps(nm)
   16. └─isotracer::set_topo(., "NH4 -> algae -> daphnia -> NH4")
   17.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<lgl>`)
   18.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<lgl>`)
   19.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   20.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   21.         ├─base::withCallingHandlers(...)
   22.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-ui_projection.R:14:5'): project() works ────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% project(end = 10) at test-ui_projection.R:14:4
    2. ├─isotracer::project(., end = 10)
    3. │ └─dplyr::bind_rows(nm$parameters)
    4. │   └─rlang::list2(...)
    5. ├─isotracer::set_params(...)
    6. ├─isotracer::set_init(...)
    7. │ ├─base::unique(unlist(comps(nm)))
    8. │ ├─base::unlist(comps(nm))
    9. │ └─isotracer::comps(nm)
   10. └─isotracer::set_topo(., "NH4 -> algae -> daphnia -> NH4")
   11.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<lgl>`)
   12.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<lgl>`)
   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-ui_projection.R:45:5'): sample_from() does not crash with different families ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% project(end = 10) at test-ui_projection.R:45:4
    2. ├─isotracer::project(., end = 10)
    3. │ └─dplyr::bind_rows(nm$parameters)
    4. │   └─rlang::list2(...)
    5. ├─isotracer::set_params(...)
    6. ├─isotracer::set_init(...)
    7. │ ├─base::unique(unlist(comps(nm)))
    8. │ ├─base::unlist(comps(nm))
    9. │ └─isotracer::comps(nm)
   10. └─isotracer::set_topo(., "NH4 -> algae -> daphnia -> NH4")
   11.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<lgl>`)
   12.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<lgl>`)
   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-ui_run-mcmc.R:17:5'): A basic run_mcmc() works ─────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% project(end = 10) at test-ui_run-mcmc.R:17:4
    2. ├─isotracer::project(., end = 10)
    3. │ └─dplyr::bind_rows(nm$parameters)
    4. │   └─rlang::list2(...)
    5. ├─isotracer::set_params(...)
    6. ├─isotracer::set_init(...)
    7. │ ├─base::unique(unlist(comps(nm)))
    8. │ ├─base::unlist(comps(nm))
    9. │ └─isotracer::comps(nm)
   10. └─isotracer::set_topo(., "NH4 -> algae -> daphnia -> NH4")
   11.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<lgl>`)
   12.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<lgl>`)
   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]])
  ── Failure ('test-ui_sankey-plotting.R:25:5'): left2right layout works ─────────
  `{ ... }` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-ui_sankey-plotting.R:25:4
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─isotracer::sankey(...) at test-ui_sankey-plotting.R:25:18
    7.   └─isotracer:::sankey_adjust_node_locations(...)
    8.     ├─base::`[<-`(`*tmp*`, nodes$x == xi, , value = `<tibble[,10]>`)
    9.     └─tibble:::`[<-.tbl_df`(`*tmp*`, nodes$x == xi, , value = `<tibble[,10]>`)
   10.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   11.         └─tibble:::tbl_subassign_row(xo, i, value, i_arg, value_arg, call)
   12.           ├─base::withCallingHandlers(...)
   13.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Failure ('test-ui_sankey-plotting.R:30:5'): left2right layout works ─────────
  `{ ... }` threw an error.
  Message: DLL requires the use of native symbols
  Class:   simpleError/error/condition
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-ui_sankey-plotting.R:30:4
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─isotracer::sankey(...) at test-ui_sankey-plotting.R:30:18
    7.   └─isotracer:::sankey_adjust_node_locations(...)
    8.     ├─base::`[<-`(`*tmp*`, nodes$x == xi, , value = `<tibble[,10]>`)
    9.     └─tibble:::`[<-.tbl_df`(`*tmp*`, nodes$x == xi, , value = `<tibble[,10]>`)
   10.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   11.         └─tibble:::tbl_subassign_row(xo, i, value, i_arg, value_arg, call)
   12.           ├─base::withCallingHandlers(...)
   13.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-ui_sankey-plotting.R:37:5'): stress layout works ───────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% set_prop_family("normal_sd", quiet = TRUE) at test-ui_sankey-plotting.R:37:4
    2. ├─isotracer::set_prop_family(., "normal_sd", quiet = TRUE)
    3. ├─isotracer::set_steady(., "subs")
    4. │ └─base::nrow(nm)
    5. └─isotracer::set_topo(...)
    6.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<lgl>`)
    7.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<lgl>`)
    8.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    9.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   10.         ├─base::withCallingHandlers(...)
   11.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test-ui_sankey-plotting.R:59:5'): stress layout works ───────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─... %>% set_steady(c("infusion", "body")) at test-ui_sankey-plotting.R:59:4
    2. ├─isotracer::set_steady(., c("infusion", "body"))
    3. │ └─base::nrow(nm)
    4. └─isotracer::set_topo(., "infusion -> plasma -> body -> plasma")
    5.   ├─base::`[<-`(`*tmp*`, 1, 1, value = `<lgl>`)
    6.   └─tibble:::`[<-.tbl_df`(`*tmp*`, 1, 1, value = `<lgl>`)
    7.     └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
    8.       └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
    9.         ├─base::withCallingHandlers(...)
   10.         └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  
  [ FAIL 31 | WARN 1 | SKIP 0 | PASS 32 ]
  Error: Test failures
  Execution halted