From bcd98a1fa3cd2fb4b7105b7ec6c129ca18f872e8 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Fri, 17 Feb 2023 22:48:18 +0100
Subject: Update online docs, fix bug that surfaced

---
 R/plot.mkinfit.R | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'R')

diff --git a/R/plot.mkinfit.R b/R/plot.mkinfit.R
index cafccae9..9606507a 100644
--- a/R/plot.mkinfit.R
+++ b/R/plot.mkinfit.R
@@ -140,15 +140,16 @@ plot.mkinfit <- function(x, fit = x,
     rownames(subset(fit$fixed, type == "deparm")))
   odeparms <- parms.all[odenames]
 
+
+  if (solution_type == "deSolve" & !is.null(fit$mkinmod$cf)) {
+    fit$mkinmod[["symbols"]] <- deSolve::checkDLL(dllname = fit$mkinmod$dll_info[["name"]],
+      func = "diffs", initfunc = "initpar",
+      jacfunc = NULL, nout = 0, outnames = NULL)
+  }
   out <- try(mkinpredict(fit$mkinmod, odeparms, odeini, outtimes,
              solution_type = solution_type, atol = fit$atol, rtol = fit$rtol),
              silent = TRUE)
 
-  if (inherits(out, "try-error")) {
-    out <- mkinpredict(fit$mkinmod, odeparms, odeini, outtimes,
-             solution_type = solution_type, atol = fit$atol, rtol = fit$rtol,
-             use_compiled = FALSE)
-  }
   out <- as.data.frame(out)
 
   names(col_obs) <- names(pch_obs) <- names(lty_obs) <- obs_vars
-- 
cgit v1.2.1