diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2023-04-06 08:06:34 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2023-04-06 08:06:34 +0200 |
| commit | 43d15fe2c2ecc570ad5edfba0e75ae9b22ac2080 (patch) | |
| tree | 52ce43017a2f66eab29b99523766b3180800d903 /R | |
| parent | b2f437963acbe66b2ac15fc1bad0bf0c1e3d8550 (diff) | |
Fix a bug with moved DLLs and current deSolve
In mkinmod, dll_info was not included in the returned model object
in the case that the DLL was moved to a user defined directory.
This is now fixed.
Diffstat (limited to 'R')
| -rw-r--r-- | R/mkinmod.R | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/R/mkinmod.R b/R/mkinmod.R index 215dbed6..29542b71 100644 --- a/R/mkinmod.R +++ b/R/mkinmod.R @@ -464,13 +464,12 @@ mkinmod <- function(..., use_of_ff = "max", name = NULL, silent = TRUE) if (!inherits(model$cf, "try-error")) { - if (is.null(dll_dir)) { - if (!quiet) message("Temporary DLL for differentials generated and loaded") - model$dll_info <- inline::getDynLib(model$cf) - } else { + if (!is.null(dll_dir)) { model$dll_info <- inline::moveDLL(model$cf, name, dll_dir, unload = unload, overwrite = overwrite, verbose = !quiet) } + if (!quiet) message("Temporary DLL for differentials generated and loaded") + model$dll_info <- inline::getDynLib(model$cf) } } # }}} |