diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2022-07-08 17:39:44 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2022-07-08 17:39:44 +0200 |
| commit | f35e0b3d3b9f41bee2f5cc357afcb69e3aadad15 (patch) | |
| tree | 675d90c517a0e8a32c7c3af8ef631a5c588503d4 /R/mkinmod.R | |
| parent | 16a7ed9548b37fe3c68c993651226fdc2dda6402 (diff) | |
Store DLL info in mkinmod objects for performance
Thanks to Tomas Kalibera for his analysis of the problem on the
r-package-devel mailing list and for the suggestion on how to
fix it. See the current benchmark vignette for the new data
on mkin 1.1.1 with R 4.2.1, with unprecedented performance.
Diffstat (limited to 'R/mkinmod.R')
| -rw-r--r-- | R/mkinmod.R | 4 |
1 files changed, 2 insertions, 2 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) } } |