Running examples in ‘NMproject-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: subroutine
> ### Title: Subroutine
> ### Aliases: subroutine
> 
> ### ** Examples
> 
> 
> # create example object m1 from package demo files
> exdir <- system.file("extdata", "examples", "theopp", package = "NMproject")
> m1 <- new_nm(run_id = "m1",
+              based_on = file.path(exdir, "Models", "ADVAN2.mod"),
+              data_path = file.path(exdir, "SourceData", "THEOPP.csv"))
> 
> 
> advan(m1) ## 2
[1] 2
> trans(m1) ## 1
[1] 1
> 
> m1 <- m1 %>% subroutine(advan = 2, trans = 2)
> 
> ds <- .available_advans %>%
+   dplyr::filter(oral) %>%
+   dplyr::mutate(
+     m = m1 %>% child(run_id = label) %>%
+       subroutine(advan = advan, trans = trans)
+   )
Error in `dplyr::mutate()`:
ℹ In argument: `m = m1 %>% child(run_id = label) %>% ...`.
Caused by error in `vectbl_assign()`:
! DLL requires the use of native symbols
Backtrace:
     ▆
  1. ├─.available_advans %>% dplyr::filter(oral) %>% ...
  2. ├─dplyr::mutate(...)
  3. ├─dplyr:::mutate.data.frame(...)
  4. │ └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by)
  5. │   ├─base::withCallingHandlers(...)
  6. │   └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns)
  7. │     └─mask$eval_all_mutate(quo)
  8. │       └─dplyr (local) eval()
  9. ├─m1 %>% child(run_id = label) %>% ...
 10. ├─NMproject::subroutine(., advan = advan, trans = trans)
 11. ├─NMproject:::subroutine.nm_list(., advan = advan, trans = trans)
 12. │ ├─base::do.call(...)
 13. │ └─base::mapply(...)
 14. │   └─NMproject (local) `<fn>`(m = dots[[1L]][[3L]], advan = dots[[2L]][[3L]], trans = dots[[3L]][[3L]])
 15. │     ├─dplyr::full_join(dold, dnew, by = "base_name")
 16. │     └─dplyr:::full_join.data.frame(dold, dnew, by = "base_name")
 17. │       └─dplyr:::join_mutate(...)
 18. │         ├─base::`[<-`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
 19. │         └─tibble:::`[<-.tbl_df`(`*tmp*`, new_rows, merge, value = `<tibble[,1]>`)
 20. │           └─tibble:::tbl_subassign(x, i, j, value, i_arg, j_arg, substitute(value))
 21. │             └─tibble:::tbl_subassign_row(xj, i, value, i_arg, value_arg, call)
 22. │               ├─base::withCallingHandlers(...)
 23. │               └─tibble:::vectbl_assign(x[[j]], i, recycled_value[[j]])
 24. └─base::.handleSimpleError(...)
 25.   └─dplyr (local) h(simpleError(msg, call))
 26.     └─rlang::abort(message, class = error_class, parent = parent, call = error_call)
Execution halted