diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2020-11-27 18:35:56 +0100 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2020-11-27 21:19:19 +0100 |
| commit | 1e3fd1bef2a0ec1c8b73fcfefdd62fd3463bc87c (patch) | |
| tree | 22fc54a9ebb62487887e779639c91c56e3d55db9 /R/mkinfit.R | |
| parent | 503441b0a958c1df50df0ee7cfc3bde4ea1b1865 (diff) | |
Improved way to have persistent DLLs for mkinmod
Depends on inline >= 0.16.2 (including the bug fixes from
eddelbuettel/inline#18), which provides 'moveDLL' to store the DLL for a
compiled function in a safe place in case the argument 'dll_dir' is
specified in the call to 'mkinmod'.
Huge thanks to Dirk @eddelbuettel for his review and support
for the work on the inline package.
Diffstat (limited to 'R/mkinfit.R')
| -rw-r--r-- | R/mkinfit.R | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/R/mkinfit.R b/R/mkinfit.R index e482285d..a6efc858 100644 --- a/R/mkinfit.R +++ b/R/mkinfit.R @@ -479,10 +479,6 @@ mkinfit <- function(mkinmod, observed, solution_type = "analytical" } else { if (!is.null(mkinmod$cf) & use_compiled[1] != FALSE) { - try_dynlib <- try(inline::getDynLib(mkinmod$cf)[["path"]]) - if (inherits(try_dynlib, "try-error")) { - mkinmod$cf <- inline::readDynLib(mkinmod$cf_name, mkinmod$cf_dir) - } solution_type = "deSolve" } else { if (is.matrix(mkinmod$coefmat)) { |