diff options
Diffstat (limited to 'R')
| -rw-r--r-- | R/mkinmod.R | 4 | ||||
| -rw-r--r-- | R/mkinpredict.R | 3 |
2 files changed, 4 insertions, 3 deletions
diff --git a/R/mkinmod.R b/R/mkinmod.R index 071f9e0e..d8740aed 100644 --- a/R/mkinmod.R +++ b/R/mkinmod.R @@ -464,9 +464,9 @@ mkinmod <- function(..., use_of_ff = "max", name = NULL, if (!inherits(model$cf, "try-error")) { if (is.null(dll_dir)) { if (!quiet) message("Temporary DLL for differentials generated and loaded") - dll_info <- inline::getDynLib(model$cf) + model$dll_info <- inline::getDynLib(model$cf) } else { - dll_info <- inline::moveDLL(model$cf, name, dll_dir, + model$dll_info <- inline::moveDLL(model$cf, name, dll_dir, unload = unload, overwrite = overwrite, verbose = !quiet) } } diff --git a/R/mkinpredict.R b/R/mkinpredict.R index 3402a7ba..9e6ba31f 100644 --- a/R/mkinpredict.R +++ b/R/mkinpredict.R @@ -177,7 +177,8 @@ mkinpredict.mkinmod <- function(x, times = outtimes, func = "diffs", initfunc = "initpar", - dllname = inline::getDynLib(x$cf)[["name"]], + dllname = if (is.null(x$dll_info)) inline::getDynLib(x$cf)[["name"]] + else x$dll_info[["name"]], parms = odeparms[x$parms], # Order matters when using compiled models method = method.ode, atol = atol, |