Hopefully fix compiling on Solaris, verbose option

- Only declare the time variable in the C code when needed in the
  derivatives.
- Add the option to show verbose output of cfunction() when compiling
  the model to a shared library.

1 files changed, 11 insertions, 2 deletions

diff --git a/man/mkinmod.Rd b/man/mkinmod.Rd
index f6a8fe5d..35372919 100644
--- a/man/mkinmod.Rd
+++ b/man/mkinmod.Rd
@@ -13,7 +13,7 @@
   in the FOCUS and NAFTA guidance documents are used.

 }

 \usage{

-mkinmod(..., use_of_ff = "min", speclist = NULL, quiet = FALSE)

+mkinmod(..., use_of_ff = "min", speclist = NULL, quiet = FALSE, verbose = FALSE)

 }

 \arguments{

   \item{...}{

@@ -45,6 +45,10 @@ mkinmod(..., use_of_ff = "min", speclist = NULL, quiet = FALSE)
   \item{quiet}{

     Should messages be suppressed?

   }

+  \item{verbose}{

+    If \code{TRUE}, passed to \code{\link{cfunction}} if applicable to give

+    detailed information about the C function being built.

+  }

 }

 \value{

   A list of class \code{mkinmod} for use with \code{\link{mkinfit}}, containing 

@@ -80,7 +84,7 @@ mkinmod(..., use_of_ff = "min", speclist = NULL, quiet = FALSE)
 # Specify the SFO model (this is not needed any more, as we can now mkinfit("SFO", ...)

 SFO <- mkinmod(parent = list(type = "SFO"))

 

-# One parent compound, one metabolite, both single first order.

+# One parent compound, one metabolite, both single first order

 SFO_SFO <- mkinmod(

   parent = mkinsub("SFO", "m1"),

   m1 = mkinsub("SFO"))

@@ -90,6 +94,11 @@ SFO_SFO <- mkinmod(
   parent = list(type = "SFO", to = "m1"),

   m1 = list(type = "SFO"))

 

+# Show details of creating the C function

+SFO_SFO <- mkinmod(

+  parent = mkinsub("SFO", "m1"),

+  m1 = mkinsub("SFO"), verbose = TRUE)

+

 # If we have several parallel metabolites 

 # (compare tests/testthat/test_synthetic_data_for_UBA_2014.R)

 m_synth_DFOP_par <- mkinmod(parent = mkinsub("DFOP", c("M1", "M2")),