Running ‘test_base.R’ [13s/21s]
Running the tests in ‘tests/test_base.R’ failed.
Complete output:
  > if (require("testthat")){
  +     test_check("disbayes")
  + }
  Loading required package: testthat
  Loading required package: disbayes
  [ FAIL 17 | WARN 0 | SKIP 0 | PASS 34 ]
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test.R:4:3'): standard disbayes model, MCMC ─────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─disbayes::disbayes(...) at test.R:4:2
    2. │ └─disbayes:::init_rates(dat, mdata, idata, ...)
    3. │   └─disbayes:::tidy_disbayes_opt(optu, .disbayes_vars)
    4. │     └─disbayes:::tidy_stansumm(ests, varlist, stats, levs)
    5. │       └─summ %>% full_join(summs[[i]], by = joinvars)
    6. ├─dplyr::full_join(., summs[[i]], by = joinvars)
    7. └─dplyr:::full_join.data.frame(., summs[[i]], by = joinvars)
    8.   └─dplyr:::join_mutate(...)
    9.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   10.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   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.R:14:3'): data supplied as estimate and denominator ────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─disbayes::disbayes(...) at test.R:14:2
    2. │ └─disbayes:::init_rates(dat, mdata, idata, ...)
    3. │   └─disbayes:::tidy_disbayes_opt(optu, .disbayes_vars)
    4. │     └─disbayes:::tidy_stansumm(ests, varlist, stats, levs)
    5. │       └─summ %>% full_join(summs[[i]], by = joinvars)
    6. ├─dplyr::full_join(., summs[[i]], by = joinvars)
    7. └─dplyr:::full_join.data.frame(., summs[[i]], by = joinvars)
    8.   └─dplyr:::join_mutate(...)
    9.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   10.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   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.R:24:3'): data supplied as estimate and credible limits ────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─disbayes::disbayes(...) at test.R:24:2
    2. │ └─disbayes:::init_rates(dat, mdata, idata, ...)
    3. │   └─disbayes:::tidy_disbayes_opt(optu, .disbayes_vars)
    4. │     └─disbayes:::tidy_stansumm(ests, varlist, stats, levs)
    5. │       └─summ %>% full_join(summs[[i]], by = joinvars)
    6. ├─dplyr::full_join(., summs[[i]], by = joinvars)
    7. └─dplyr:::full_join.data.frame(., summs[[i]], by = joinvars)
    8.   └─dplyr:::join_mutate(...)
    9.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   10.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   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.R:49:3'): increasing case fatality ─────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─disbayes::disbayes(...) at test.R:49:2
    2. │ └─disbayes:::init_rates(dat, mdata, idata, ...)
    3. │   └─disbayes:::tidy_disbayes_opt(optu, .disbayes_vars)
    4. │     └─disbayes:::tidy_stansumm(ests, varlist, stats, levs)
    5. │       └─summ %>% full_join(summs[[i]], by = joinvars)
    6. ├─dplyr::full_join(., summs[[i]], by = joinvars)
    7. └─dplyr:::full_join.data.frame(., summs[[i]], by = joinvars)
    8.   └─dplyr:::join_mutate(...)
    9.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   10.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   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.R:61:3'): constant case fatality ───────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─disbayes::disbayes(...) at test.R:61:2
    2. │ └─disbayes:::init_rates(dat, mdata, idata, ...)
    3. │   └─disbayes:::tidy_disbayes_opt(optu, .disbayes_vars)
    4. │     └─disbayes:::tidy_stansumm(ests, varlist, stats, levs)
    5. │       └─summ %>% full_join(summs[[i]], by = joinvars)
    6. ├─dplyr::full_join(., summs[[i]], by = joinvars)
    7. └─dplyr:::full_join.data.frame(., summs[[i]], by = joinvars)
    8.   └─dplyr:::join_mutate(...)
    9.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   10.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   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.R:73:3'): unsmooth incidence ───────────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─disbayes::disbayes(...) at test.R:73:2
    2. │ └─disbayes:::init_rates(dat, mdata, idata, ...)
    3. │   └─disbayes:::tidy_disbayes_opt(optu, .disbayes_vars)
    4. │     └─disbayes:::tidy_stansumm(ests, varlist, stats, levs)
    5. │       └─summ %>% full_join(summs[[i]], by = joinvars)
    6. ├─dplyr::full_join(., summs[[i]], by = joinvars)
    7. └─dplyr:::full_join.data.frame(., summs[[i]], by = joinvars)
    8.   └─dplyr:::join_mutate(...)
    9.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   10.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   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.R:131:3'): disbayes model with trends ──────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─disbayes::disbayes(...) at test.R:131:2
    2. │ └─disbayes:::init_rates(dat, mdata, idata, ...)
    3. │   └─disbayes:::tidy_disbayes_opt(optu, .disbayes_vars)
    4. │     └─disbayes:::tidy_stansumm(ests, varlist, stats, levs)
    5. │       └─summ %>% full_join(summs[[i]], by = joinvars)
    6. ├─dplyr::full_join(., summs[[i]], by = joinvars)
    7. └─dplyr:::full_join.data.frame(., summs[[i]], by = joinvars)
    8.   └─dplyr:::join_mutate(...)
    9.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   10.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   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.R:218:2'): sprior ──────────────────────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─disbayes::disbayes(...) at test.R:218:1
    2. │ └─disbayes:::init_rates(dat, mdata, idata, ...)
    3. │   └─disbayes:::tidy_disbayes_opt(optu, .disbayes_vars)
    4. │     └─disbayes:::tidy_stansumm(ests, varlist, stats, levs)
    5. │       └─summ %>% full_join(summs[[i]], by = joinvars)
    6. ├─dplyr::full_join(., summs[[i]], by = joinvars)
    7. └─dplyr:::full_join.data.frame(., summs[[i]], by = joinvars)
    8.   └─dplyr:::join_mutate(...)
    9.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   10.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   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.R:229:3'): errors and warnings in model specification ──────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─testthat::expect_warning(...) at test.R:229:2
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─disbayes::disbayes(...)
    7. │ └─disbayes:::init_rates(dat, mdata, idata, ...)
    8. │   └─disbayes:::tidy_disbayes_opt(optu, .disbayes_vars)
    9. │     └─disbayes:::tidy_stansumm(ests, varlist, stats, levs)
   10. │       └─summ %>% full_join(summs[[i]], by = joinvars)
   11. ├─dplyr::full_join(., summs[[i]], by = joinvars)
   12. └─dplyr:::full_join.data.frame(., summs[[i]], by = joinvars)
   13.   └─dplyr:::join_mutate(...)
   14.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   15.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   16.       └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
   17.         └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
   18.           ├─base::withCallingHandlers(...)
   19.           └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
  ── Error ('test_eb.R:4:3'): fixing smoothness parameters ───────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─disbayes::disbayes(...) at test_eb.R:4:2
    2. │ └─disbayes:::init_rates(dat, mdata, idata, ...)
    3. │   └─disbayes:::tidy_disbayes_opt(optu, .disbayes_vars)
    4. │     └─disbayes:::tidy_stansumm(ests, varlist, stats, levs)
    5. │       └─summ %>% full_join(summs[[i]], by = joinvars)
    6. ├─dplyr::full_join(., summs[[i]], by = joinvars)
    7. └─dplyr:::full_join.data.frame(., summs[[i]], by = joinvars)
    8.   └─dplyr:::join_mutate(...)
    9.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   10.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   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_fit.R:5:3'): fit and conflict checks ───────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─disbayes::disbayes(...) at test_fit.R:5:2
    2. │ └─disbayes:::init_rates(dat, mdata, idata, ...)
    3. │   └─disbayes:::tidy_disbayes_opt(optu, .disbayes_vars)
    4. │     └─disbayes:::tidy_stansumm(ests, varlist, stats, levs)
    5. │       └─summ %>% full_join(summs[[i]], by = joinvars)
    6. ├─dplyr::full_join(., summs[[i]], by = joinvars)
    7. └─dplyr:::full_join.data.frame(., summs[[i]], by = joinvars)
    8.   └─dplyr:::join_mutate(...)
    9.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   10.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   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_hier.R:4:3'): hierarchical model ───────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─disbayes::disbayes_hier(...) at test_hier.R:4:2
    2. │ └─disbayes:::init_rates(datagg, mdata, idata, ...)
    3. │   └─disbayes:::tidy_disbayes_opt(optu, .disbayes_vars)
    4. │     └─disbayes:::tidy_stansumm(ests, varlist, stats, levs)
    5. │       └─summ %>% full_join(summs[[i]], by = joinvars)
    6. ├─dplyr::full_join(., summs[[i]], by = joinvars)
    7. └─dplyr:::full_join.data.frame(., summs[[i]], by = joinvars)
    8.   └─dplyr:::join_mutate(...)
    9.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   10.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   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_hier.R:63:3'): fixed hyperparameters ───────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─disbayes::disbayes_hier(...) at test_hier.R:63:2
    2. │ └─disbayes:::init_rates(datagg, mdata, idata, ...)
    3. │   └─disbayes:::tidy_disbayes_opt(optu, .disbayes_vars)
    4. │     └─disbayes:::tidy_stansumm(ests, varlist, stats, levs)
    5. │       └─summ %>% full_join(summs[[i]], by = joinvars)
    6. ├─dplyr::full_join(., summs[[i]], by = joinvars)
    7. └─dplyr:::full_join.data.frame(., summs[[i]], by = joinvars)
    8.   └─dplyr:::join_mutate(...)
    9.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   10.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   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_hier_gender.R:3:3'): hierarchical model with additive area and gender effects ──
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─disbayes::disbayes_hier(...) at test_hier_gender.R:3:2
    2. │ └─disbayes:::init_rates(datagg, mdata, idata, ...)
    3. │   └─disbayes:::tidy_disbayes_opt(optu, .disbayes_vars)
    4. │     └─disbayes:::tidy_stansumm(ests, varlist, stats, levs)
    5. │       └─summ %>% full_join(summs[[i]], by = joinvars)
    6. ├─dplyr::full_join(., summs[[i]], by = joinvars)
    7. └─dplyr:::full_join.data.frame(., summs[[i]], by = joinvars)
    8.   └─dplyr:::join_mutate(...)
    9.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   10.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   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_hier_gender.R:13:3'): fixed smoothness for gender effect ───────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─disbayes::disbayes_hier(...) at test_hier_gender.R:13:2
    2. │ └─disbayes:::init_rates(datagg, mdata, idata, ...)
    3. │   └─disbayes:::tidy_disbayes_opt(optu, .disbayes_vars)
    4. │     └─disbayes:::tidy_stansumm(ests, varlist, stats, levs)
    5. │       └─summ %>% full_join(summs[[i]], by = joinvars)
    6. ├─dplyr::full_join(., summs[[i]], by = joinvars)
    7. └─dplyr:::full_join.data.frame(., summs[[i]], by = joinvars)
    8.   └─dplyr:::join_mutate(...)
    9.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   10.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   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_loo.R:7:3'): loo, standard  ────────────────────────────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─disbayes::disbayes(...) at test_loo.R:7:2
    2. │ └─disbayes:::init_rates(dat, mdata, idata, ...)
    3. │   └─disbayes:::tidy_disbayes_opt(optu, .disbayes_vars)
    4. │     └─disbayes:::tidy_stansumm(ests, varlist, stats, levs)
    5. │       └─summ %>% full_join(summs[[i]], by = joinvars)
    6. ├─dplyr::full_join(., summs[[i]], by = joinvars)
    7. └─dplyr:::full_join.data.frame(., summs[[i]], by = joinvars)
    8.   └─dplyr:::join_mutate(...)
    9.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   10.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   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_opt.R:5:3'): standard disbayes model, optimisation ─────────────
  Error in `vectbl_assign(x[[j]], i, recycled_value[[j]])`: DLL requires the use of native symbols
  Backtrace:
       ▆
    1. ├─disbayes::disbayes(...) at test_opt.R:5:2
    2. │ └─disbayes:::init_rates(dat, mdata, idata, ...)
    3. │   └─disbayes:::tidy_disbayes_opt(optu, .disbayes_vars)
    4. │     └─disbayes:::tidy_stansumm(ests, varlist, stats, levs)
    5. │       └─summ %>% full_join(summs[[i]], by = joinvars)
    6. ├─dplyr::full_join(., summs[[i]], by = joinvars)
    7. └─dplyr:::full_join.data.frame(., summs[[i]], by = joinvars)
    8.   └─dplyr:::join_mutate(...)
    9.     ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   10.     └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,2]>`)
   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 17 | WARN 0 | SKIP 0 | PASS 34 ]
  Error: Test failures
  Execution halted