diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2023-04-15 15:35:06 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2023-04-15 15:35:06 +0200 |
| commit | b0b710ee9f9bb9bbe9708676d0c5822465e02203 (patch) | |
| tree | 537dcf86326ab2e03100a5defb11b264a4b72a17 /R/mkinpredict.R | |
| parent | 50ea6d11f8c79218c98ee8ae56d8bdcd42cc703a (diff) | |
Make predefined symbols safer
We still need to create a parallel processing cluster _after_ creating a
compiled model that is moved to a user defined location, at least I did
not find another way to make it work. This is not a problem with
parallel processing without a cluster, which is not available on
Windows.
Diffstat (limited to 'R/mkinpredict.R')
| -rw-r--r-- | R/mkinpredict.R | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/R/mkinpredict.R b/R/mkinpredict.R index 8fa41217..60456fb2 100644 --- a/R/mkinpredict.R +++ b/R/mkinpredict.R @@ -27,8 +27,8 @@ #' When using compiled code, only lsoda is supported. #' @param use_compiled If set to \code{FALSE}, no compiled version of the #' [mkinmod] model is used, even if is present. -#' @param use_symbols If set to \code{TRUE}, symbol info present in the -#' [mkinmod] object is used if available for accessing compiled code +#' @param use_symbols If set to \code{TRUE} (default), symbol info present in +#' the [mkinmod] object is used if available for accessing compiled code #' @param atol Absolute error tolerance, passed to the ode solver. #' @param rtol Absolute error tolerance, passed to the ode solver. #' @param maxsteps Maximum number of steps, passed to the ode solver. @@ -174,7 +174,7 @@ mkinpredict.mkinmod <- function(x, if (solution_type == "deSolve") { if (!is.null(x$cf) & use_compiled[1] != FALSE) { - if (!is.null(x$symbols) & use_symbols[1] == TRUE) { + if (!is.null(x$symbols) & use_symbols) { lsoda_func <- x$symbols } else { lsoda_func <- "diffs" |